/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / cl-macs.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 53 61 74 20 4a 75 |it.edu o|n Sat Ju|
|00000040| 6e 20 31 38 20 31 33 3a | 32 39 3a 31 38 20 31 39 |n 18 13:|29:18 19|
|00000050| 39 34 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |94.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 63 6c 2d 6d 61 63 73 |9.0/lisp|/cl-macs|
|00000080| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000090| 72 73 69 6f 6e 20 31 39 | 2e 32 35 2e 39 2e 0a 3b |rsion 19|.25.9..;|
|000000a0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000b0| 69 6f 6e 20 46 53 46 20 | 32 2e 31 30 0a 3b 3b 3b |ion FSF |2.10.;;;|
|000000c0| 20 6f 70 74 69 6d 69 7a | 61 74 69 6f 6e 20 69 73 | optimiz|ation is|
|000000d0| 20 6f 6e 2e 0a 3b 3b 3b | 20 74 68 69 73 20 66 69 | on..;;;| this fi|
|000000e0| 6c 65 20 75 73 65 73 20 | 6f 70 63 6f 64 65 73 20 |le uses |opcodes |
|000000f0| 77 68 69 63 68 20 64 6f | 20 6e 6f 74 20 65 78 69 |which do| not exi|
|00000100| 73 74 20 69 6e 20 45 6d | 61 63 73 20 31 38 2e 0a |st in Em|acs 18..|
|00000110| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000120| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000130| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000140| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000150| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000160| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. |    (str|
|00000170| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000180| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|00000190| 20 20 20 20 28 65 72 72 | 6f 72 20 22 60 2f 67 64 |    (err|or "`/gd|
|000001a0| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|000001b0| 6c 69 73 70 2f 63 6c 2d | 6d 61 63 73 2e 65 6c 27 |lisp/cl-|macs.el'|
|000001c0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001d0| 72 20 45 6d 61 63 73 20 | 31 39 22 29 29 0a 0a 28 |r Emacs |19"))..(|
|000001e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 09 3e 84 5c |byte-cod|e "..>.\|
|000001f0| 6e 00 c2 c3 21 88 c4 c5 | c6 5c 22 88 c4 c7 c8 5c |n...!...|.\"....\|
|00000200| 22 88 c4 c9 ca 5c 22 88 | cb c5 cc cd 23 88 cb c7 |"....\".|....#...|
|00000210| cc cd 23 88 cb c9 cc cd | 23 88 ce cf c4 21 84 36 |..#.....|#....!.6|
|00000220| 00 c4 d0 4d 88 cf d1 21 | 84 41 00 c4 d1 d2 5c 22 |...M...!|.A....\"|
|00000230| 88 09 86 49 00 d3 43 89 | 11 40 21 88 d4 d5 21 84 |...I..C.|.@!...!.|
|00000240| 55 00 d6 16 15 c4 d7 d8 | 5c 22 87 22 20 5b 63 6c |U.......|\"." [cl|
|00000250| 2d 31 39 20 66 65 61 74 | 75 72 65 73 20 65 72 72 |-19 feat|ures err|
|00000260| 6f 72 20 22 54 72 69 65 | 64 20 74 6f 20 6c 6f 61 |or "Trie|d to loa|
|00000270| 64 20 60 63 6c 2d 6d 61 | 63 73 27 20 62 65 66 6f |d `cl-ma|cs' befo|
|00000280| 72 65 20 60 63 6c 27 21 | 22 20 64 65 66 61 6c 69 |re `cl'!|" defali|
|00000290| 61 73 20 63 6c 2d 70 75 | 73 68 20 28 6d 61 63 72 |as cl-pu|sh (macr|
|000002a0| 6f 20 2e 20 23 5b 28 78 | 20 70 6c 61 63 65 29 20 |o . #[(x| place) |
|000002b0| 22 c0 09 c2 0b 09 45 45 | 87 22 20 5b 73 65 74 71 |".....EE|." [setq|
|000002c0| 20 70 6c 61 63 65 20 63 | 6f 6e 73 20 78 5d 20 35 | place c|ons x] 5|
|000002d0| 5d 29 20 63 6c 2d 70 6f | 70 20 28 6d 61 63 72 6f |]) cl-po|p (macro|
|000002e0| 20 2e 20 23 5b 28 70 6c | 61 63 65 29 20 22 c0 c1 | . #[(pl|ace) "..|
|000002f0| 5c 6e c3 5c 6e c4 5c 6e | 44 45 45 44 87 22 20 5b |\n.\n.\n|DEED." [|
|00000300| 63 61 72 20 70 72 6f 67 | 31 20 70 6c 61 63 65 20 |car prog|1 place |
|00000310| 73 65 74 71 20 63 64 72 | 5d 20 37 5d 29 20 63 6c |setq cdr|] 7]) cl|
|00000320| 2d 70 6f 70 32 20 28 6d | 61 63 72 6f 20 2e 20 23 |-pop2 (m|acro . #|
|00000330| 5b 28 70 6c 61 63 65 29 | 20 22 c0 c1 c2 0b 44 44 |[(place)| "....DD|
|00000340| c4 0b c2 89 0b 44 44 45 | 45 87 22 20 5b 70 72 6f |.....DDE|E." [pro|
|00000350| 67 31 20 63 61 72 20 63 | 64 72 20 70 6c 61 63 65 |g1 car c|dr place|
|00000360| 20 73 65 74 71 5d 20 37 | 5d 29 20 70 75 74 20 65 | setq] 7|]) put e|
|00000370| 64 65 62 75 67 2d 66 6f | 72 6d 2d 73 70 65 63 20 |debug-fo|rm-spec |
|00000380| 65 64 65 62 75 67 2d 73 | 65 78 70 73 20 72 65 71 |edebug-s|exps req|
|00000390| 75 69 72 65 20 66 62 6f | 75 6e 64 70 20 66 73 65 |uire fbo|undp fse|
|000003a0| 74 20 63 6c 2d 74 72 61 | 6e 73 66 6f 72 6d 2d 66 |t cl-tra|nsform-f|
|000003b0| 75 6e 63 74 69 6f 6e 2d | 70 72 6f 70 65 72 74 79 |unction-|property|
|000003c0| 20 23 5b 28 6e 20 70 20 | 66 29 20 22 c0 c1 5c 6e | #[(n p |f) "..\n|
|000003d0| 44 c1 0b 44 c4 c5 0e 06 | 42 44 46 87 22 20 5b 70 |D..D....|BDF." [p|
|000003e0| 75 74 20 71 75 6f 74 65 | 20 6e 20 70 20 66 75 6e |ut quote| n p fun|
|000003f0| 63 74 69 6f 6e 20 6c 61 | 6d 62 64 61 20 66 5d 20 |ction la|mbda f] |
|00000400| 36 5d 20 63 6c 2d 6b 6c | 75 64 67 65 20 62 6f 75 |6] cl-kl|udge bou|
|00000410| 6e 64 70 20 63 6c 2d 6f | 6c 64 2d 62 63 2d 66 69 |ndp cl-o|ld-bc-fi|
|00000420| 6c 65 2d 66 6f 72 6d 20 | 6e 69 6c 20 63 6c 2d 63 |le-form |nil cl-c|
|00000430| 6f 6d 70 69 6c 65 2d 74 | 69 6d 65 2d 69 6e 69 74 |ompile-t|ime-init|
|00000440| 20 23 5b 6e 69 6c 20 22 | c0 4b 11 c2 c3 21 84 0e | #[nil "|.K...!..|
|00000450| 00 c4 c0 c5 5c 22 88 c6 | c7 c8 c9 23 88 ca cb 21 |....\"..|...#...!|
|00000460| 87 22 20 5b 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |." [byte|-compile|
|00000470| 2d 66 69 6c 65 2d 66 6f | 72 6d 20 63 6c 2d 6f 6c |-file-fo|rm cl-ol|
|00000480| 64 2d 62 63 2d 66 69 6c | 65 2d 66 6f 72 6d 20 66 |d-bc-fil|e-form f|
|00000490| 62 6f 75 6e 64 70 20 62 | 79 74 65 2d 63 6f 6d 70 |boundp b|yte-comp|
|000004a0| 69 6c 65 2d 66 6c 75 73 | 68 2d 70 65 6e 64 69 6e |ile-flus|h-pendin|
|000004b0| 67 20 64 65 66 61 6c 69 | 61 73 20 23 5b 28 66 6f |g defali|as #[(fo|
|000004c0| 72 6d 29 20 22 c0 09 5c | 6e 5c 22 89 11 a2 c3 3d |rm) "..\|n\"....=|
|000004d0| 83 14 00 c3 c4 c5 09 41 | 5c 22 42 87 0e 06 09 21 |.......A|\"B....!|
|000004e0| 87 22 20 5b 6d 61 63 72 | 6f 65 78 70 61 6e 64 20 |." [macr|oexpand |
|000004f0| 66 6f 72 6d 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |form byt|e-compil|
|00000500| 65 2d 6d 61 63 72 6f 2d | 65 6e 76 69 72 6f 6e 6d |e-macro-|environm|
|00000510| 65 6e 74 20 70 72 6f 67 | 6e 20 6d 61 70 63 61 72 |ent prog|n mapcar|
|00000520| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 66 69 | byte-co|mpile-fi|
|00000530| 6c 65 2d 66 6f 72 6d 20 | 63 6c 2d 6f 6c 64 2d 62 |le-form |cl-old-b|
|00000540| 63 2d 66 69 6c 65 2d 66 | 6f 72 6d 5d 20 35 5d 20 |c-file-f|orm] 5] |
|00000550| 70 75 74 20 65 71 6c 20 | 62 79 74 65 2d 63 6f 6d |put eql |byte-com|
|00000560| 70 69 6c 65 20 63 6c 2d | 62 79 74 65 2d 63 6f 6d |pile cl-|byte-com|
|00000570| 70 69 6c 65 2d 63 6f 6d | 70 69 6c 65 72 2d 6d 61 |pile-com|piler-ma|
|00000580| 63 72 6f 20 72 75 6e 2d | 68 6f 6f 6b 73 20 63 6c |cro run-|hooks cl|
|00000590| 2d 68 61 63 6b 2d 62 79 | 74 65 63 6f 6d 70 2d 68 |-hack-by|tecomp-h|
|000005a0| 6f 6f 6b 5d 20 34 5d 5d | 20 34 29 0a 28 64 65 66 |ook] 4]]| 4).(def|
|000005b0| 61 6c 69 61 73 20 27 67 | 65 6e 73 79 6d 20 23 5b |alias 'g|ensym #[|
|000005c0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|000005d0| 22 08 3b 83 09 00 08 82 | 5c 6e 00 c1 08 a8 83 13 |".;.....|\n......|
|000005e0| 00 08 82 17 00 5c 6e 89 | 54 12 1b 1c c5 c6 c7 5c |.....\n.|T......\|
|000005f0| 66 0b 23 21 2a 87 22 20 | 5b 61 72 67 20 22 47 22 |f.#!*." |[arg "G"|
|00000600| 20 2a 67 65 6e 73 79 6d | 2d 63 6f 75 6e 74 65 72 | *gensym|-counter|
|00000610| 2a 20 6e 75 6d 20 70 72 | 65 66 69 78 20 6d 61 6b |* num pr|efix mak|
|00000620| 65 2d 73 79 6d 62 6f 6c | 20 66 6f 72 6d 61 74 20 |e-symbol| format |
|00000630| 22 25 73 25 64 22 5d 20 | 35 20 22 5c 0a 47 65 6e |"%s%d"] |5 "\.Gen|
|00000640| 65 72 61 74 65 20 61 20 | 6e 65 77 20 75 6e 69 6e |erate a |new unin|
|00000650| 74 65 72 6e 65 64 20 73 | 79 6d 62 6f 6c 2e 0a 54 |terned s|ymbol..T|
|00000660| 68 65 20 6e 61 6d 65 20 | 69 73 20 6d 61 64 65 20 |he name |is made |
|00000670| 62 79 20 61 70 70 65 6e | 64 69 6e 67 20 61 20 6e |by appen|ding a n|
|00000680| 75 6d 62 65 72 20 74 6f | 20 50 52 45 46 49 58 2c |umber to| PREFIX,|
|00000690| 20 64 65 66 61 75 6c 74 | 20 5c 22 47 5c 22 2e 22 | default| \"G\"."|
|000006a0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 67 65 |]).(defa|lias 'ge|
|000006b0| 6e 74 65 6d 70 20 23 5b | 28 26 6f 70 74 69 6f 6e |ntemp #[|(&option|
|000006c0| 61 6c 20 61 72 67 29 20 | 22 08 3b 83 09 00 08 82 |al arg) |".;.....|
|000006d0| 5c 6e 00 c1 c2 1b 1c c5 | c6 c7 5c 66 0e 08 23 89 |\n......|..\f..#.|
|000006e0| 13 21 83 5c 22 00 0e 08 | 54 16 08 82 0d 00 c9 0b |.!.\"...|T.......|
|000006f0| 21 2a 87 22 20 5b 61 72 | 67 20 22 47 22 20 6e 69 |!*." [ar|g "G" ni|
|00000700| 6c 20 6e 61 6d 65 20 70 | 72 65 66 69 78 20 69 6e |l name p|refix in|
|00000710| 74 65 72 6e 2d 73 6f 66 | 74 20 66 6f 72 6d 61 74 |tern-sof|t format|
|00000720| 20 22 25 73 25 64 22 20 | 2a 67 65 6e 73 79 6d 2d | "%s%d" |*gensym-|
|00000730| 63 6f 75 6e 74 65 72 2a | 20 69 6e 74 65 72 6e 5d |counter*| intern]|
|00000740| 20 35 20 22 5c 0a 47 65 | 6e 65 72 61 74 65 20 61 | 5 "\.Ge|nerate a|
|00000750| 20 6e 65 77 20 69 6e 74 | 65 72 6e 65 64 20 73 79 | new int|erned sy|
|00000760| 6d 62 6f 6c 20 77 69 74 | 68 20 61 20 75 6e 69 71 |mbol wit|h a uniq|
|00000770| 75 65 20 6e 61 6d 65 2e | 0a 54 68 65 20 6e 61 6d |ue name.|.The nam|
|00000780| 65 20 69 73 20 6d 61 64 | 65 20 62 79 20 61 70 70 |e is mad|e by app|
|00000790| 65 6e 64 69 6e 67 20 61 | 20 6e 75 6d 62 65 72 20 |ending a| number |
|000007a0| 74 6f 20 50 52 45 46 49 | 58 2c 20 64 65 66 61 75 |to PREFI|X, defau|
|000007b0| 6c 74 20 5c 22 47 5c 22 | 2e 22 5d 29 0a 28 64 65 |lt \"G\"|."]).(de|
|000007c0| 66 61 6c 69 61 73 20 27 | 64 65 66 75 6e 2a 20 27 |falias '|defun* '|
|000007d0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6e 61 6d 65 |(macro .| #[(name|
|000007e0| 20 61 72 67 73 20 26 72 | 65 73 74 20 62 6f 64 79 | args &r|est body|
|000007f0| 29 20 22 c0 09 5c 6e 42 | 0b 5c 22 1c c5 c6 0b 5c |) "..\nB|.\"....\|
|00000800| 66 41 23 1e 07 5c 66 40 | 83 1d 00 c8 5c 66 40 0e |fA#..\f@|....\f@.|
|00000810| 07 45 82 1f 00 0e 07 2a | 87 22 20 5b 63 6c 2d 74 |.E.....*|." [cl-t|
|00000820| 72 61 6e 73 66 6f 72 6d | 2d 6c 61 6d 62 64 61 20 |ransform|-lambda |
|00000830| 61 72 67 73 20 62 6f 64 | 79 20 6e 61 6d 65 20 72 |args bod|y name r|
|00000840| 65 73 20 6c 69 73 74 2a | 20 64 65 66 75 6e 20 66 |es list*| defun f|
|00000850| 6f 72 6d 20 70 72 6f 67 | 6e 5d 20 34 20 22 5c 0a |orm prog|n] 4 "\.|
|00000860| 28 64 65 66 75 6e 2a 20 | 4e 41 4d 45 20 41 52 47 |(defun* |NAME ARG|
|00000870| 4c 49 53 54 20 5b 44 4f | 43 53 54 52 49 4e 47 5d |LIST [DO|CSTRING]|
|00000880| 20 42 4f 44 59 2e 2e 2e | 29 3a 20 64 65 66 69 6e | BODY...|): defin|
|00000890| 65 20 4e 41 4d 45 20 61 | 73 20 61 20 66 75 6e 63 |e NAME a|s a func|
|000008a0| 74 69 6f 6e 2e 0a 4c 69 | 6b 65 20 6e 6f 72 6d 61 |tion..Li|ke norma|
|000008b0| 6c 20 60 64 65 66 75 6e | 27 2c 20 65 78 63 65 70 |l `defun|', excep|
|000008c0| 74 20 41 52 47 4c 49 53 | 54 20 61 6c 6c 6f 77 73 |t ARGLIS|T allows|
|000008d0| 20 66 75 6c 6c 20 43 6f | 6d 6d 6f 6e 20 4c 69 73 | full Co|mmon Lis|
|000008e0| 70 20 63 6f 6e 76 65 6e | 74 69 6f 6e 73 2c 0a 61 |p conven|tions,.a|
|000008f0| 6e 64 20 42 4f 44 59 20 | 69 73 20 69 6d 70 6c 69 |nd BODY |is impli|
|00000900| 63 69 74 6c 79 20 73 75 | 72 72 6f 75 6e 64 65 64 |citly su|rrounded|
|00000910| 20 62 79 20 28 62 6c 6f | 63 6b 20 4e 41 4d 45 20 | by (blo|ck NAME |
|00000920| 2e 2e 2e 29 2e 22 5d 29 | 29 0a 28 64 65 66 61 6c |...)."])|).(defal|
|00000930| 69 61 73 20 27 64 65 66 | 6d 61 63 72 6f 2a 20 27 |ias 'def|macro* '|
|00000940| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 6e 61 6d 65 |(macro .| #[(name|
|00000950| 20 61 72 67 73 20 26 72 | 65 73 74 20 62 6f 64 79 | args &r|est body|
|00000960| 29 20 22 c0 09 5c 6e 42 | 0b 5c 22 1c c5 c6 0b 5c |) "..\nB|.\"....\|
|00000970| 66 41 23 1e 07 5c 66 40 | 83 1d 00 c8 5c 66 40 0e |fA#..\f@|....\f@.|
|00000980| 07 45 82 1f 00 0e 07 2a | 87 22 20 5b 63 6c 2d 74 |.E.....*|." [cl-t|
|00000990| 72 61 6e 73 66 6f 72 6d | 2d 6c 61 6d 62 64 61 20 |ransform|-lambda |
|000009a0| 61 72 67 73 20 62 6f 64 | 79 20 6e 61 6d 65 20 72 |args bod|y name r|
|000009b0| 65 73 20 6c 69 73 74 2a | 20 64 65 66 6d 61 63 72 |es list*| defmacr|
|000009c0| 6f 20 66 6f 72 6d 20 70 | 72 6f 67 6e 5d 20 34 20 |o form p|rogn] 4 |
|000009d0| 22 5c 0a 28 64 65 66 6d | 61 63 72 6f 2a 20 4e 41 |"\.(defm|acro* NA|
|000009e0| 4d 45 20 41 52 47 4c 49 | 53 54 20 5b 44 4f 43 53 |ME ARGLI|ST [DOCS|
|000009f0| 54 52 49 4e 47 5d 20 42 | 4f 44 59 2e 2e 2e 29 3a |TRING] B|ODY...):|
|00000a00| 20 64 65 66 69 6e 65 20 | 4e 41 4d 45 20 61 73 20 | define |NAME as |
|00000a10| 61 20 6d 61 63 72 6f 2e | 0a 4c 69 6b 65 20 6e 6f |a macro.|.Like no|
|00000a20| 72 6d 61 6c 20 60 64 65 | 66 6d 61 63 72 6f 27 2c |rmal `de|fmacro',|
|00000a30| 20 65 78 63 65 70 74 20 | 41 52 47 4c 49 53 54 20 | except |ARGLIST |
|00000a40| 61 6c 6c 6f 77 73 20 66 | 75 6c 6c 20 43 6f 6d 6d |allows f|ull Comm|
|00000a50| 6f 6e 20 4c 69 73 70 20 | 63 6f 6e 76 65 6e 74 69 |on Lisp |conventi|
|00000a60| 6f 6e 73 2c 0a 61 6e 64 | 20 42 4f 44 59 20 69 73 |ons,.and| BODY is|
|00000a70| 20 69 6d 70 6c 69 63 69 | 74 6c 79 20 73 75 72 72 | implici|tly surr|
|00000a80| 6f 75 6e 64 65 64 20 62 | 79 20 28 62 6c 6f 63 6b |ounded b|y (block|
|00000a90| 20 4e 41 4d 45 20 2e 2e | 2e 29 2e 22 5d 29 29 0a | NAME ..|.)."])).|
|00000aa0| 28 64 65 66 61 6c 69 61 | 73 20 27 66 75 6e 63 74 |(defalia|s 'funct|
|00000ab0| 69 6f 6e 2a 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |ion* '(m|acro . #|
|00000ac0| 5b 28 66 75 6e 63 29 20 | 22 08 a2 c1 3d 83 27 00 |[(func) |"...=.'.|
|00000ad0| c2 08 41 c3 5c 22 1c c5 | c1 5c 66 41 42 44 1e 06 |..A.\"..|.\fABD..|
|00000ae0| 5c 66 40 83 23 00 c7 5c | 66 40 0e 06 45 82 25 00 |\f@.#..\|f@..E.%.|
|00000af0| 0e 06 2a 87 c5 08 44 87 | 22 20 5b 66 75 6e 63 20 |..*...D.|" [func |
|00000b00| 6c 61 6d 62 64 61 20 63 | 6c 2d 74 72 61 6e 73 66 |lambda c|l-transf|
|00000b10| 6f 72 6d 2d 6c 61 6d 62 | 64 61 20 63 6c 2d 6e 6f |orm-lamb|da cl-no|
|00000b20| 6e 65 20 72 65 73 20 66 | 75 6e 63 74 69 6f 6e 20 |ne res f|unction |
|00000b30| 66 6f 72 6d 20 70 72 6f | 67 6e 5d 20 33 20 22 5c |form pro|gn] 3 "\|
|00000b40| 0a 28 66 75 6e 63 74 69 | 6f 6e 2a 20 53 59 4d 42 |.(functi|on* SYMB|
|00000b50| 4f 4c 2d 4f 52 2d 4c 41 | 4d 42 44 41 29 3a 20 69 |OL-OR-LA|MBDA): i|
|00000b60| 6e 74 72 6f 64 75 63 65 | 20 61 20 66 75 6e 63 74 |ntroduce| a funct|
|00000b70| 69 6f 6e 2e 0a 4c 69 6b | 65 20 6e 6f 72 6d 61 6c |ion..Lik|e normal|
|00000b80| 20 60 66 75 6e 63 74 69 | 6f 6e 27 2c 20 65 78 63 | `functi|on', exc|
|00000b90| 65 70 74 20 74 68 61 74 | 20 69 66 20 61 72 67 75 |ept that| if argu|
|00000ba0| 6d 65 6e 74 20 69 73 20 | 61 20 6c 61 6d 62 64 61 |ment is |a lambda|
|00000bb0| 20 66 6f 72 6d 2c 20 69 | 74 73 0a 41 52 47 4c 49 | form, i|ts.ARGLI|
|00000bc0| 53 54 20 61 6c 6c 6f 77 | 73 20 66 75 6c 6c 20 43 |ST allow|s full C|
|00000bd0| 6f 6d 6d 6f 6e 20 4c 69 | 73 70 20 63 6f 6e 76 65 |ommon Li|sp conve|
|00000be0| 6e 74 69 6f 6e 73 2e 22 | 5d 29 29 0a 28 62 79 74 |ntions."|])).(byt|
|00000bf0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 88 c3 14 |e-code "|...\"...|
|00000c00| c5 c6 21 84 10 00 c7 16 | 06 c0 c8 c9 5c 22 88 c0 |..!.....|....\"..|
|00000c10| ca cb 5c 22 88 c0 cc cd | 5c 22 88 c0 ce cf 5c 22 |..\"....|\"....\"|
|00000c20| 88 c5 d0 21 84 2d 00 c7 | 16 10 c7 87 22 20 5b 64 |...!.-..|...." [d|
|00000c30| 65 66 61 6c 69 61 73 20 | 63 6c 2d 74 72 61 6e 73 |efalias |cl-trans|
|00000c40| 66 6f 72 6d 2d 66 75 6e | 63 74 69 6f 6e 2d 70 72 |form-fun|ction-pr|
|00000c50| 6f 70 65 72 74 79 20 23 | 5b 28 66 75 6e 63 20 70 |operty #|[(func p|
|00000c60| 72 6f 70 20 66 6f 72 6d | 29 20 22 c0 09 5c 6e 5c |rop form|) "..\n\|
|00000c70| 22 1b c4 c5 0b 40 41 41 | c6 c7 5c 6e 44 c7 0e 08 |"....@AA|..\nD...|
|00000c80| 44 c9 ca 0b 41 42 44 46 | 43 23 29 87 22 20 5b 63 |D...ABDF|C#)." [c|
|00000c90| 6c 2d 74 72 61 6e 73 66 | 6f 72 6d 2d 6c 61 6d 62 |l-transf|orm-lamb|
|00000ca0| 64 61 20 66 6f 72 6d 20 | 66 75 6e 63 20 72 65 73 |da form |func res|
|00000cb0| 20 61 70 70 65 6e 64 20 | 28 70 72 6f 67 6e 29 20 | append |(progn) |
|00000cc0| 70 75 74 20 71 75 6f 74 | 65 20 70 72 6f 70 20 66 |put quot|e prop f|
|00000cd0| 75 6e 63 74 69 6f 6e 20 | 6c 61 6d 62 64 61 5d 20 |unction |lambda] |
|00000ce0| 39 5d 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 26 72 |9] (&opt|ional &r|
|00000cf0| 65 73 74 20 26 6b 65 79 | 20 26 61 6c 6c 6f 77 2d |est &key| &allow-|
|00000d00| 6f 74 68 65 72 2d 6b 65 | 79 73 20 26 61 75 78 20 |other-ke|ys &aux |
|00000d10| 26 77 68 6f 6c 65 20 26 | 62 6f 64 79 20 26 65 6e |&whole &|body &en|
|00000d20| 76 69 72 6f 6e 6d 65 6e | 74 29 20 6c 61 6d 62 64 |vironmen|t) lambd|
|00000d30| 61 2d 6c 69 73 74 2d 6b | 65 79 77 6f 72 64 73 20 |a-list-k|eywords |
|00000d40| 62 6f 75 6e 64 70 20 63 | 6c 2d 6d 61 63 72 6f 2d |boundp c|l-macro-|
|00000d50| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 6e 69 6c 20 |environm|ent nil |
|00000d60| 63 6c 2d 74 72 61 6e 73 | 66 6f 72 6d 2d 6c 61 6d |cl-trans|form-lam|
|00000d70| 62 64 61 20 23 5b 28 66 | 6f 72 6d 20 62 69 6e 64 |bda #[(f|orm bind|
|00000d80| 2d 62 6c 6f 63 6b 29 20 | 22 08 40 19 08 41 1a c3 |-block) |".@..A..|
|00000d90| 1c c3 1d c3 1e 06 c3 1e | 07 c3 1e 08 c3 1e 09 c3 |........|........|
|00000da0| 1e 5c 6e 5c 6e 40 3b 84 | 27 00 5c 6e 40 a2 cb 3d |.\n\n@;.|'.\n@..=|
|00000db0| 83 34 00 5c 6e 89 41 12 | 40 0e 09 42 16 09 82 19 |.4.\n.A.|@..B....|
|00000dc0| 00 09 3c 83 3f 00 cc 09 | 21 82 42 00 cd 09 44 11 |..<.?...|!.B...D.|
|00000dd0| ce 09 21 89 1e 0f 41 83 | 56 00 0e 0f cd 0e 0f 41 |..!...A.|V......A|
|00000de0| 44 a1 88 29 d0 d1 09 3e | 21 89 14 83 6d 00 d2 d1 |D..)...>|!...m...|
|00000df0| d2 5c 66 09 5c 22 5c 22 | 11 d0 5c 66 21 14 d3 09 |.\f.\"\"|..\f!...|
|00000e00| 3e 89 15 83 7a 00 d2 d3 | 09 5c 22 11 d4 09 3e 83 |>...z...|.\"...>.|
|00000e10| 84 00 d5 d6 21 88 d7 09 | 3e 1e 0f d0 0e 0f 21 1e |....!...|>.....!.|
|00000e20| 18 0e 0f 83 a6 00 d2 0e | 0f 40 d2 0e 18 09 5c 22 |........|.@....\"|
|00000e30| 5c 22 d9 0e 18 da 44 44 | a4 11 2a 09 83 d7 00 09 |\"....DD|..*.....|
|00000e40| 40 39 83 d7 00 09 40 db | 3e 84 d7 00 09 40 dc 3d |@9....@.|>....@.=|
|00000e50| 83 ca 00 5c 66 84 d7 00 | d0 09 21 3a 84 d7 00 09 |...\f...|..!:....|
|00000e60| 89 41 11 40 0e 5c 6e 42 | 16 5c 6e 82 a7 00 0e 1d |.A.@.\nB|.\n.....|
|00000e70| de 3d 84 e6 00 df e0 0e | 1d 5c 6e 23 43 12 09 84 |.=......|.\n#C...|
|00000e80| f8 00 df c3 0e 5c 6e 9f | 0e 09 9f 5c 6e a4 23 82 |.....\n.|...\n.#.|
|00000e90| 48 01 dc 0e 5c 6e 3e 83 | 03 01 dc 09 42 11 e1 09 |H...\n>.|....B...|
|00000ea0| c3 0e 5c 6e 47 dc 0e 5c | 6e 3e 83 14 01 e2 82 15 |..\nG..\|n>......|
|00000eb0| 01 e3 5a 23 88 0e 07 9f | 16 07 df 0e 06 85 2a 01 |..Z#....|......*.|
|00000ec0| df e4 e5 0e 06 9f 23 0e | 5c 6e 9f cd 0e 07 89 41 |......#.|\n.....A|
|00000ed0| 16 07 40 40 44 a4 0e 09 | 9f e6 0e 07 44 0e 08 9f |..@@D...|....D...|
|00000ee0| a4 5c 6e a4 43 a4 23 2e | 09 87 22 20 5b 66 6f 72 |.\n.C.#.|.." [for|
|00000ef0| 6d 20 61 72 67 73 20 62 | 6f 64 79 20 6e 69 6c 20 |m args b|ody nil |
|00000f00| 62 69 6e 64 2d 64 65 66 | 73 20 62 69 6e 64 2d 65 |bind-def|s bind-e|
|00000f10| 6e 71 75 6f 74 65 20 62 | 69 6e 64 2d 69 6e 69 74 |nquote b|ind-init|
|00000f20| 73 20 62 69 6e 64 2d 6c | 65 74 73 20 62 69 6e 64 |s bind-l|ets bind|
|00000f30| 2d 66 6f 72 6d 73 20 68 | 65 61 64 65 72 20 73 69 |-forms h|eader si|
|00000f40| 6d 70 6c 65 2d 61 72 67 | 73 20 69 6e 74 65 72 61 |mple-arg|s intera|
|00000f50| 63 74 69 76 65 20 63 6f | 70 79 2d 6c 69 73 74 20 |ctive co|py-list |
|00000f60| 26 72 65 73 74 20 6c 61 | 73 74 20 70 20 63 61 64 |&rest la|st p cad|
|00000f70| 72 20 26 63 6c 2d 64 65 | 66 73 20 64 65 6c 71 20 |r &cl-de|fs delq |
|00000f80| 26 63 6c 2d 71 75 6f 74 | 65 20 26 77 68 6f 6c 65 |&cl-quot|e &whole|
|00000f90| 20 65 72 72 6f 72 20 22 | 26 77 68 6f 6c 65 20 6e | error "|&whole n|
|00000fa0| 6f 74 20 63 75 72 72 65 | 6e 74 6c 79 20 69 6d 70 |ot curre|ntly imp|
|00000fb0| 6c 65 6d 65 6e 74 65 64 | 22 20 26 65 6e 76 69 72 |lemented|" &envir|
|00000fc0| 6f 6e 6d 65 6e 74 20 76 | 20 26 61 75 78 20 63 6c |onment v| &aux cl|
|00000fd0| 2d 6d 61 63 72 6f 2d 65 | 6e 76 69 72 6f 6e 6d 65 |-macro-e|nvironme|
|00000fe0| 6e 74 20 28 6e 69 6c 20 | 26 72 65 73 74 20 26 62 |nt (nil |&rest &b|
|00000ff0| 6f 64 79 20 26 6b 65 79 | 20 26 61 75 78 29 20 26 |ody &key| &aux) &|
|00001000| 6f 70 74 69 6f 6e 61 6c | 20 62 69 6e 64 2d 62 6c |optional| bind-bl|
|00001010| 6f 63 6b 20 63 6c 2d 6e | 6f 6e 65 20 6c 69 73 74 |ock cl-n|one list|
|00001020| 2a 20 62 6c 6f 63 6b 20 | 63 6c 2d 64 6f 2d 61 72 |* block |cl-do-ar|
|00001030| 67 6c 69 73 74 20 31 20 | 30 20 65 76 61 6c 2d 77 |glist 1 |0 eval-w|
|00001040| 68 65 6e 20 28 63 6f 6d | 70 69 6c 65 20 6c 6f 61 |hen (com|pile loa|
|00001050| 64 20 65 76 61 6c 29 20 | 6c 65 74 2a 5d 20 37 5d |d eval) |let*] 7]|
|00001060| 20 63 6c 2d 64 6f 2d 61 | 72 67 6c 69 73 74 20 23 | cl-do-a|rglist #|
|00001070| 5b 28 61 72 67 73 20 65 | 78 70 72 20 26 6f 70 74 |[(args e|xpr &opt|
|00001080| 69 6f 6e 61 6c 20 6e 75 | 6d 29 20 22 08 3c 84 1d |ional nu|m) ".<..|
|00001090| 00 08 09 3e 84 10 00 08 | 39 84 15 00 c2 c3 08 5c |...>....|9......\|
|000010a0| 22 87 08 5c 66 44 0d 42 | 89 15 87 c6 08 21 10 c7 |"..\fD.B|.....!..|
|000010b0| 08 21 89 1e 08 41 83 34 | 00 0e 08 c9 0e 08 41 44 |.!...A.4|......AD|
|000010c0| a1 88 29 ca 08 3e 89 1e | 08 83 43 00 0e 08 c9 a0 |..)..>..|..C.....|
|000010d0| 88 29 cb 08 3e 83 4e 00 | c2 cc 21 88 08 c9 08 3e |.)..>.N.|..!....>|
|000010e0| cd 20 83 5c 5c 00 0e 0e | 82 5d 00 cf d0 89 89 89 |. .\\...|.]......|
|000010f0| 1e 11 1e 12 1e 13 1e 14 | 1e 15 1e 16 1e 17 0e 18 |........|........|
|00001100| 84 77 00 d9 16 18 da 0e | 16 21 3c 83 87 00 db dc |.w......|.!<.....|
|00001110| 21 16 16 82 8d 00 da 0e | 16 21 16 16 0e 16 5c 66 |!.......|.!....\f|
|00001120| 44 0d 42 15 08 40 dd 3d | 83 a8 00 08 41 40 08 41 |D.B..@.=|....A@.A|
|00001130| 41 10 0e 16 44 0d 42 15 | 08 1e 08 0e 16 16 11 0e |A...D.B.|........|
|00001140| 08 83 d2 00 0e 08 40 09 | 3e 84 d2 00 0e 08 08 3d |......@.|>......=|
|00001150| 84 c9 00 de 0e 11 44 16 | 11 0e 08 41 89 16 08 84 |......D.|...A....|
|00001160| b4 00 0e 08 40 df 3e 83 | ef 00 e0 e1 0e 16 44 e2 |....@.>.|......D.|
|00001170| 08 0e 08 5c 22 47 45 16 | 11 08 0e 08 3d 3f 16 12 |...\"GE.|....=?..|
|00001180| 29 08 83 4f 01 08 40 09 | 3e 84 4f 01 08 41 84 05 |)..O..@.|>.O..A..|
|00001190| 01 0e 12 84 09 01 e3 82 | 5c 6e 01 e4 0e 16 44 1e |........|\n....D.|
|000011a0| 25 e6 08 89 41 10 40 0e | 13 84 21 01 0e 15 d9 55 |%...A.@.|..!....U|
|000011b0| 83 26 01 0e 25 82 41 01 | e7 0e 11 0e 25 e8 e9 ea |.&..%.A.|....%...|
|000011c0| 0e 2b ec 3d 3f 85 3a 01 | ed 0e 2b 44 e1 0e 16 44 |.+.=?.:.|..+D...D|
|000011d0| 45 45 46 5c 22 88 29 0e | 18 54 16 18 ee 16 13 82 |EEF\".).|.T......|
|000011e0| f0 00 08 40 ef 3d 83 e0 | 01 08 89 41 10 40 83 e0 |...@.=..|...A.@..|
|000011f0| 01 08 83 4f 01 08 40 09 | 3e 84 4f 01 08 89 41 10 |...O..@.|>.O...A.|
|00001200| 40 89 1e 30 3a 84 7a 01 | 0e 30 43 16 30 f1 0e 30 |@..0:.z.|.0C.0..0|
|00001210| 21 83 8d 01 e6 f2 0e 30 | 38 f3 0e 16 ee 45 5c 22 |!......0|8....E\"|
|00001220| 88 0e 30 41 83 9a 01 0e | 30 41 40 82 a8 01 0e 34 |..0A....|0A@....4|
|00001230| 40 86 a8 01 0e 30 40 0e | 34 9e 41 40 e3 0e 16 44 |@....0@.|4.A@...D|
|00001240| 1e 25 89 1e 35 83 bf 01 | 0e 36 83 bf 01 ed 0e 35 |.%..5...|.6.....5|
|00001250| 44 16 35 e6 0e 30 40 0e | 35 83 d3 01 e7 0e 16 0e |D.5..0@.|5.......|
|00001260| 25 0e 35 46 82 d5 01 0e | 25 5c 22 88 0e 18 54 16 |%.5F....|%\"...T.|
|00001270| 18 2b 82 5e 01 08 40 c9 | 3d 83 00 02 08 41 40 08 |.+.^..@.|=....A@.|
|00001280| 41 41 10 89 1e 30 3a 83 | fc 01 e6 0e 30 0e 16 5c |AA...0:.|....0..\|
|00001290| 22 88 29 82 35 02 08 40 | f7 3d 84 35 02 0e 15 d9 |".).5..@|.=.5....|
|000012a0| 55 84 35 02 0e 12 84 35 | 02 e7 0e 16 e8 f8 ea 0e |U.5....5|........|
|000012b0| 2b ec 3d 3f 85 25 02 ed | 0e 2b 44 f9 0e 18 e1 0e |+.=?.%..|.+D.....|
|000012c0| 16 44 45 45 45 45 0e 3a | 42 16 3a 08 40 f7 3d 83 |.DEEEE.:|B.:.@.=.|
|000012d0| 66 03 08 89 41 10 40 83 | 66 03 08 83 35 02 08 40 |f...A.@.|f...5..@|
|000012e0| 09 3e 84 35 02 08 89 41 | 10 40 89 1e 30 3a 84 60 |.>.5...A|.@..0:.`|
|000012f0| 02 0e 30 43 16 30 0e 30 | 40 3a 83 6e 02 fb 0e 30 |..0C.0.0|@:.n...0|
|00001300| 21 82 76 02 fc fd fe 0e | 30 40 5c 22 21 1e 3f 0e |!.v.....|0@\"!.?.|
|00001310| 30 40 3a 83 88 02 81 40 | 00 0e 30 21 82 8b 02 0e |0@:....@|..0!....|
|00001320| 30 40 1e 41 0e 30 41 83 | 9a 02 da 0e 30 21 82 a7 |0@.A.0A.|....0!..|
|00001330| 02 0e 34 40 86 a7 02 da | 0e 41 0e 34 9e 21 1e 35 |..4@....|.A.4.!.5|
|00001340| 81 42 00 ed 0e 3f 44 0e | 16 45 1e 43 0e 35 83 c5 |.B...?D.|.E.C.5..|
|00001350| 02 0e 36 83 c5 02 ed 0e | 35 44 16 35 f1 0e 30 21 |..6.....|5D.5..0!|
|00001360| 83 02 03 f2 0e 30 38 86 | d5 02 db 20 1e 44 e4 de |.....08.|... .D..|
|00001370| 0e 44 44 44 1e 45 e6 0e | 44 0e 43 5c 22 88 e6 0e |.DDD.E..|D.C\"...|
|00001380| 41 e7 0e 44 81 46 00 0e | 45 81 47 00 0e 44 ee 45 |A..D.F..|E.G..D.E|
|00001390| 45 0e 35 46 5c 22 88 2a | 82 38 03 e6 0e 41 e4 de |E.5F\".*|.8...A..|
|000013a0| 0e 35 84 11 03 0e 43 82 | 34 03 81 48 00 0e 43 81 |.5....C.|4..H..C.|
|000013b0| 49 00 0e 35 21 ee 3d 83 | 2e 03 ed d0 81 4a 00 0e |I..5!.=.|.....J..|
|000013c0| 35 21 44 44 82 33 03 ea | d0 0e 35 45 45 44 44 5c |5!DD.3..|..5EEDD\|
|000013d0| 22 88 0e 3f 0e 14 42 16 | 14 81 4b 00 0e 3f 21 d9 |"..?..B.|..K..?!.|
|000013e0| 48 81 4c 00 55 83 62 03 | 0e 3f 89 4c 88 81 47 00 |H.L.U.b.|.?.L..G.|
|000013f0| 0e 3f ed 0e 3f 44 45 0e | 4d 42 16 4d 2d 82 44 02 |.?..?DE.|MB.M-.D.|
|00001400| 0e 14 9f 16 14 08 40 81 | 4e 00 3d 83 7c 03 08 89 |......@.|N.=.|...|
|00001410| 41 10 40 84 f6 03 0e 14 | 83 f6 03 0e 15 d9 55 84 |A.@.....|......U.|
|00001420| f6 03 db 81 4f 00 21 1e | 50 81 51 00 1e 52 81 53 |....O.!.|P.Q..R.S|
|00001430| 00 0e 50 81 54 00 81 42 | 00 e4 0e 50 44 ed 81 55 |..P.T..B|...PD..U|
|00001440| 00 0e 14 0e 52 5c 22 44 | 45 81 47 00 0e 50 de 89 |....R\"D|E.G..P..|
|00001450| 0e 50 44 44 45 44 e4 de | 81 42 00 ed 0e 52 42 0e |.PDDED..|.B...RB.|
|00001460| 16 45 44 44 81 47 00 0e | 50 d0 45 44 ee c2 fd 81 |.EDD.G..|P.ED....|
|00001470| 56 00 0e 14 5c 22 e4 0e | 50 44 45 44 46 45 1e 57 |V...\"..|PDEDFE.W|
|00001480| 81 58 00 0e 50 0e 16 44 | 43 0e 57 45 0e 3a 42 16 |.X..P..D|C.WE.:B.|
|00001490| 3a 2b 08 40 81 59 00 3d | 83 53 04 08 89 41 10 40 |:+.@.Y.=|.S...A.@|
|000014a0| 83 53 04 08 83 f6 03 08 | 40 09 3e 84 f6 03 08 40 |.S......|@.>....@|
|000014b0| 3a 83 47 04 0e 36 83 37 | 04 81 40 00 08 21 83 37 |:.G..6.7|..@..!.7|
|000014c0| 04 e6 fb 08 21 ed da 08 | 89 41 10 40 21 44 5c 22 |....!...|.A.@!D\"|
|000014d0| 88 82 07 04 e6 fb 08 21 | da 08 89 41 10 40 21 5c |.......!|...A.@!\|
|000014e0| 22 88 82 07 04 e6 08 89 | 41 10 40 d0 5c 22 88 82 |".......|A.@.\"..|
|000014f0| 07 04 08 85 5e 04 c2 81 | 5a 00 0e 17 5c 22 2e 07 |....^...|Z...\"..|
|00001500| 87 22 20 5b 61 72 67 73 | 20 6c 61 6d 62 64 61 2d |." [args| lambda-|
|00001510| 6c 69 73 74 2d 6b 65 79 | 77 6f 72 64 73 20 65 72 |list-key|words er|
|00001520| 72 6f 72 20 22 49 6e 76 | 61 6c 69 64 20 61 72 67 |ror "Inv|alid arg|
|00001530| 75 6d 65 6e 74 20 6e 61 | 6d 65 3a 20 25 73 22 20 |ument na|me: %s" |
|00001540| 65 78 70 72 20 62 69 6e | 64 2d 6c 65 74 73 20 63 |expr bin|d-lets c|
|00001550| 6f 70 79 2d 6c 69 73 74 | 20 6c 61 73 74 20 70 20 |opy-list| last p |
|00001560| 26 72 65 73 74 20 26 62 | 6f 64 79 20 26 65 6e 76 |&rest &b|ody &env|
|00001570| 69 72 6f 6e 6d 65 6e 74 | 20 22 26 65 6e 76 69 72 |ironment| "&envir|
|00001580| 6f 6e 6d 65 6e 74 20 75 | 73 65 64 20 69 6e 63 6f |onment u|sed inco|
|00001590| 72 72 65 63 74 6c 79 22 | 20 63 6c 2d 63 6f 6d 70 |rrectly"| cl-comp|
|000015a0| 69 6c 69 6e 67 2d 66 69 | 6c 65 20 63 6c 2d 6f 70 |iling-fi|le cl-op|
|000015b0| 74 69 6d 69 7a 65 2d 73 | 61 66 65 74 79 20 33 20 |timize-s|afety 3 |
|000015c0| 6e 69 6c 20 6d 69 6e 61 | 72 67 20 65 78 61 63 74 |nil mina|rg exact|
|000015d0| 61 72 67 20 6c 61 74 65 | 72 61 72 67 20 6b 65 79 |arg late|rarg key|
|000015e0| 73 20 73 61 66 65 74 79 | 20 72 65 73 74 61 72 67 |s safety| restarg|
|000015f0| 20 73 61 76 65 2d 61 72 | 67 73 20 6e 75 6d 20 30 | save-ar|gs num 0|
|00001600| 20 63 61 64 72 20 67 65 | 6e 73 79 6d 20 22 2d 2d | cadr ge|nsym "--|
|00001610| 72 65 73 74 2d 2d 22 20 | 26 77 68 6f 6c 65 20 63 |rest--" |&whole c|
|00001620| 64 72 20 28 6e 69 6c 20 | 26 61 75 78 29 20 3d 20 |dr (nil |&aux) = |
|00001630| 6c 65 6e 67 74 68 20 6c | 64 69 66 66 20 70 6f 70 |length l|diff pop|
|00001640| 20 63 61 72 20 70 6f 70 | 61 72 67 20 63 6c 2d 64 | car pop|arg cl-d|
|00001650| 6f 2d 61 72 67 6c 69 73 | 74 20 69 66 20 73 69 67 |o-arglis|t if sig|
|00001660| 6e 61 6c 20 28 71 75 6f | 74 65 20 77 72 6f 6e 67 |nal (quo|te wrong|
|00001670| 2d 6e 75 6d 62 65 72 2d | 6f 66 2d 61 72 67 75 6d |-number-|of-argum|
|00001680| 65 6e 74 73 29 20 6c 69 | 73 74 20 62 69 6e 64 2d |ents) li|st bind-|
|00001690| 62 6c 6f 63 6b 20 63 6c | 2d 6e 6f 6e 65 20 71 75 |block cl|-none qu|
|000016a0| 6f 74 65 20 74 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ote t &o|ptional |
|000016b0| 61 72 67 20 63 64 64 72 | 20 32 20 61 6e 64 20 62 |arg cddr| 2 and b|
|000016c0| 69 6e 64 2d 64 65 66 73 | 20 64 65 66 20 62 69 6e |ind-defs| def bin|
|000016d0| 64 2d 65 6e 71 75 6f 74 | 65 20 26 6b 65 79 20 28 |d-enquot|e &key (|
|000016e0| 71 75 6f 74 65 20 77 72 | 6f 6e 67 2d 6e 75 6d 62 |quote wr|ong-numb|
|000016f0| 65 72 2d 6f 66 2d 61 72 | 67 75 6d 65 6e 74 73 29 |er-of-ar|guments)|
|00001700| 20 2b 20 62 69 6e 64 2d | 66 6f 72 6d 73 20 63 61 | + bind-|forms ca|
|00001710| 61 72 20 69 6e 74 65 72 | 6e 20 66 6f 72 6d 61 74 |ar inter|n format|
|00001720| 20 22 3a 25 73 22 20 6b | 61 72 67 20 63 61 64 61 | ":%s" k|arg cada|
|00001730| 72 20 76 61 72 67 20 6d | 65 6d 71 20 6c 6f 6f 6b |r varg m|emq look|
|00001740| 20 74 65 6d 70 20 76 61 | 6c 20 70 72 6f 67 31 20 | temp va|l prog1 |
|00001750| 73 65 74 71 20 6f 72 20 | 63 6c 2d 63 6f 6e 73 74 |setq or |cl-const|
|00001760| 2d 65 78 70 72 2d 70 20 | 63 6c 2d 63 6f 6e 73 74 |-expr-p |cl-const|
|00001770| 2d 65 78 70 72 2d 76 61 | 6c 20 73 79 6d 62 6f 6c |-expr-va|l symbol|
|00001780| 2d 6e 61 6d 65 20 35 38 | 20 62 69 6e 64 2d 69 6e |-name 58| bind-in|
|00001790| 69 74 73 20 26 61 6c 6c | 6f 77 2d 6f 74 68 65 72 |its &all|ow-other|
|000017a0| 2d 6b 65 79 73 20 22 2d | 2d 6b 65 79 73 2d 2d 22 |-keys "-|-keys--"|
|000017b0| 20 76 61 72 20 28 3a 61 | 6c 6c 6f 77 2d 6f 74 68 | var (:a|llow-oth|
|000017c0| 65 72 2d 6b 65 79 73 29 | 20 61 6c 6c 6f 77 20 77 |er-keys)| allow w|
|000017d0| 68 69 6c 65 20 63 6f 6e | 64 20 61 70 70 65 6e 64 |hile con|d append|
|000017e0| 20 22 4b 65 79 77 6f 72 | 64 20 61 72 67 75 6d 65 | "Keywor|d argume|
|000017f0| 6e 74 20 25 25 73 20 6e | 6f 74 20 6f 6e 65 20 6f |nt %%s n|ot one o|
|00001800| 66 20 25 73 22 20 63 68 | 65 63 6b 20 6c 65 74 20 |f %s" ch|eck let |
|00001810| 26 61 75 78 20 22 4d 61 | 6c 66 6f 72 6d 65 64 20 |&aux "Ma|lformed |
|00001820| 61 72 67 75 6d 65 6e 74 | 20 6c 69 73 74 20 25 73 |argument| list %s|
|00001830| 22 5d 20 31 32 5d 20 63 | 6c 2d 61 72 67 6c 69 73 |"] 12] c|l-arglis|
|00001840| 74 2d 61 72 67 73 20 23 | 5b 28 61 72 67 73 29 20 |t-args #|[(args) |
|00001850| 22 08 3c 84 08 00 08 43 | 87 c1 89 89 1a 1b 1c 08 |".<....C|........|
|00001860| 3a 83 5b 00 08 89 41 10 | 40 89 12 0d 3e 83 24 00 |:.[...A.|@...>.$.|
|00001870| 5c 6e 13 82 0e 00 5c 6e | c6 3d 83 32 00 08 89 41 |\n....\n|.=.2...A|
|00001880| 10 88 82 0e 00 5c 6e 3a | 83 3e 00 0b 83 3e 00 5c |.....\n:|.>...>.\|
|00001890| 6e 40 12 5c 6e 3a 83 52 | 00 5c 6e 41 83 52 00 0b |n@.\n:.R|.\nA.R..|
|000018a0| c7 3d 83 52 00 c8 5c 6e | 21 12 5c 66 c9 5c 6e 21 |.=.R..\n|!.\f.\n!|
|000018b0| a4 14 82 0e 00 5c 66 08 | 85 62 00 08 43 a4 2b 87 |.....\f.|.b..C.+.|
|000018c0| 22 20 5b 61 72 67 73 20 | 6e 69 6c 20 61 72 67 20 |" [args |nil arg |
|000018d0| 6b 69 6e 64 20 72 65 73 | 20 6c 61 6d 62 64 61 2d |kind res| lambda-|
|000018e0| 6c 69 73 74 2d 6b 65 79 | 77 6f 72 64 73 20 26 63 |list-key|words &c|
|000018f0| 6c 2d 64 65 66 73 20 26 | 6b 65 79 20 63 61 64 72 |l-defs &|key cadr|
|00001900| 20 63 6c 2d 61 72 67 6c | 69 73 74 2d 61 72 67 73 | cl-argl|ist-args|
|00001910| 5d 20 34 5d 20 64 65 73 | 74 72 75 63 74 75 72 69 |] 4] des|tructuri|
|00001920| 6e 67 2d 62 69 6e 64 20 | 28 6d 61 63 72 6f 20 2e |ng-bind |(macro .|
|00001930| 20 23 5b 28 61 72 67 73 | 20 65 78 70 72 20 26 72 | #[(args| expr &r|
|00001940| 65 73 74 20 62 6f 64 79 | 29 20 22 c0 19 c0 1a c0 |est body|) ".....|
|00001950| 1b c0 1c c5 1e 06 c7 0e | 08 86 12 00 c9 0e 5c 6e |........|......\n|
|00001960| 5c 22 88 cb cc 0b cd 09 | 9f 44 5c 6e 9f a4 0e 0e |\"......|.D\n....|
|00001970| a4 43 23 2d 87 22 20 5b | 6e 69 6c 20 62 69 6e 64 |.C#-." [|nil bind|
|00001980| 2d 6c 65 74 73 20 62 69 | 6e 64 2d 66 6f 72 6d 73 |-lets bi|nd-forms|
|00001990| 20 62 69 6e 64 2d 69 6e | 69 74 73 20 62 69 6e 64 | bind-in|its bind|
|000019a0| 2d 64 65 66 73 20 63 6c | 2d 6e 6f 6e 65 20 62 69 |-defs cl|-none bi|
|000019b0| 6e 64 2d 62 6c 6f 63 6b | 20 63 6c 2d 64 6f 2d 61 |nd-block| cl-do-a|
|000019c0| 72 67 6c 69 73 74 20 61 | 72 67 73 20 28 26 61 75 |rglist a|rgs (&au|
|000019d0| 78 29 20 65 78 70 72 20 | 61 70 70 65 6e 64 20 28 |x) expr |append (|
|000019e0| 70 72 6f 67 6e 29 20 6c | 65 74 2a 20 62 6f 64 79 |progn) l|et* body|
|000019f0| 5d 20 35 5d 29 20 63 6c | 2d 6e 6f 74 2d 74 6f 70 |] 5]) cl|-not-top|
|00001a00| 6c 65 76 65 6c 5d 20 33 | 29 0a 28 64 65 66 61 6c |level] 3|).(defal|
|00001a10| 69 61 73 20 27 65 76 61 | 6c 2d 77 68 65 6e 20 27 |ias 'eva|l-when '|
|00001a20| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 77 68 65 6e |(macro .| #[(when|
|00001a30| 20 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 c1 | &rest b|ody) "..|
|00001a40| 21 83 5a 00 c1 20 83 5a | 00 5c 6e 84 5a 00 c3 c4 |!.Z.. .Z|.\n.Z...|
|00001a50| 21 84 5a 00 c5 0e 06 3e | 86 20 00 c7 0e 06 3e c8 |!.Z....>|. ....>.|
|00001a60| 1a 1e 09 ca 0e 06 3e 84 | 32 00 cb 0e 06 3e 83 4b |......>.|2....>.K|
|00001a70| 00 0e 09 83 41 00 cc cd | ce 0e 0f 5c 22 42 82 58 |....A...|...\"B.X|
|00001a80| 00 d0 d1 d2 89 0e 0f 24 | 82 58 00 0e 09 83 57 00 |.......$|.X....W.|
|00001a90| d3 cc 0e 0f 42 21 88 d2 | 2a 87 d3 0e 06 3e 84 68 |....B!..|*....>.h|
|00001aa0| 00 d4 0e 06 3e 85 6c 00 | cc 0e 0f 42 87 22 20 5b |....>.l.|...B." [|
|00001ab0| 66 62 6f 75 6e 64 70 20 | 63 6c 2d 63 6f 6d 70 69 |fboundp |cl-compi|
|00001ac0| 6c 69 6e 67 2d 66 69 6c | 65 20 63 6c 2d 6e 6f 74 |ling-fil|e cl-not|
|00001ad0| 2d 74 6f 70 6c 65 76 65 | 6c 20 62 6f 75 6e 64 70 |-topleve|l boundp|
|00001ae0| 20 66 6f 72 2d 65 66 66 | 65 63 74 20 63 6f 6d 70 | for-eff|ect comp|
|00001af0| 69 6c 65 20 77 68 65 6e | 20 3a 63 6f 6d 70 69 6c |ile when| :compil|
|00001b00| 65 2d 74 6f 70 6c 65 76 | 65 6c 20 74 20 63 6f 6d |e-toplev|el t com|
|00001b10| 70 20 6c 6f 61 64 20 3a | 6c 6f 61 64 2d 74 6f 70 |p load :|load-top|
|00001b20| 6c 65 76 65 6c 20 70 72 | 6f 67 6e 20 6d 61 70 63 |level pr|ogn mapc|
|00001b30| 61 72 20 63 6c 2d 63 6f | 6d 70 69 6c 65 2d 74 69 |ar cl-co|mpile-ti|
|00001b40| 6d 65 2d 74 6f 6f 20 62 | 6f 64 79 20 6c 69 73 74 |me-too b|ody list|
|00001b50| 2a 20 69 66 20 6e 69 6c | 20 65 76 61 6c 20 3a 65 |* if nil| eval :e|
|00001b60| 78 65 63 75 74 65 5d 20 | 35 20 22 5c 0a 28 65 76 |xecute] |5 "\.(ev|
|00001b70| 61 6c 2d 77 68 65 6e 20 | 28 57 48 45 4e 2e 2e 2e |al-when |(WHEN...|
|00001b80| 29 20 42 4f 44 59 2e 2e | 2e 29 3a 20 63 6f 6e 74 |) BODY..|.): cont|
|00001b90| 72 6f 6c 20 77 68 65 6e | 20 42 4f 44 59 20 69 73 |rol when| BODY is|
|00001ba0| 20 65 76 61 6c 75 61 74 | 65 64 2e 0a 49 66 20 60 | evaluat|ed..If `|
|00001bb0| 63 6f 6d 70 69 6c 65 27 | 20 69 73 20 69 6e 20 57 |compile'| is in W|
|00001bc0| 48 45 4e 2c 20 42 4f 44 | 59 20 69 73 20 65 76 61 |HEN, BOD|Y is eva|
|00001bd0| 6c 75 61 74 65 64 20 77 | 68 65 6e 20 63 6f 6d 70 |luated w|hen comp|
|00001be0| 69 6c 65 64 20 61 74 20 | 74 6f 70 2d 6c 65 76 65 |iled at |top-leve|
|00001bf0| 6c 2e 0a 49 66 20 60 6c | 6f 61 64 27 20 69 73 20 |l..If `l|oad' is |
|00001c00| 69 6e 20 57 48 45 4e 2c | 20 42 4f 44 59 20 69 73 |in WHEN,| BODY is|
|00001c10| 20 65 76 61 6c 75 61 74 | 65 64 20 77 68 65 6e 20 | evaluat|ed when |
|00001c20| 6c 6f 61 64 65 64 20 61 | 66 74 65 72 20 74 6f 70 |loaded a|fter top|
|00001c30| 2d 6c 65 76 65 6c 20 63 | 6f 6d 70 69 6c 65 2e 0a |-level c|ompile..|
|00001c40| 49 66 20 60 65 76 61 6c | 27 20 69 73 20 69 6e 20 |If `eval|' is in |
|00001c50| 57 48 45 4e 2c 20 42 4f | 44 59 20 69 73 20 65 76 |WHEN, BO|DY is ev|
|00001c60| 61 6c 75 61 74 65 64 20 | 77 68 65 6e 20 69 6e 74 |aluated |when int|
|00001c70| 65 72 70 72 65 74 65 64 | 20 6f 72 20 61 74 20 6e |erpreted| or at n|
|00001c80| 6f 6e 2d 74 6f 70 2d 6c | 65 76 65 6c 2e 22 5d 29 |on-top-l|evel."])|
|00001c90| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|00001ca0| c2 5c 22 88 c3 c4 21 83 | 13 00 c4 4b a2 c5 3d 83 |.\"...!.|...K..=.|
|00001cb0| 17 00 c6 c7 21 88 c0 87 | 22 20 5b 64 65 66 61 6c |....!...|" [defal|
|00001cc0| 69 61 73 20 63 6c 2d 63 | 6f 6d 70 69 6c 65 2d 74 |ias cl-c|ompile-t|
|00001cd0| 69 6d 65 2d 74 6f 6f 20 | 23 5b 28 66 6f 72 6d 29 |ime-too |#[(form)|
|00001ce0| 20 22 08 a2 39 83 0d 00 | 08 a2 c1 4e 84 14 00 c2 | "..9...|...N....|
|00001cf0| 08 c3 5c 66 42 5c 22 10 | 08 a2 c5 3d 83 23 00 c5 |..\fB\".|...=.#..|
|00001d00| c6 c7 08 41 5c 22 42 87 | 08 a2 c8 3d 83 4d 00 08 |...A\"B.|...=.M..|
|00001d10| 41 40 1e 09 ca 0e 09 3e | 84 3d 00 cb 0e 09 3e 83 |A@.....>|.=....>.|
|00001d20| 4a 00 cc c8 cd 0e 09 42 | ce 08 21 23 82 4b 00 08 |J......B|..!#.K..|
|00001d30| 29 87 ca 08 21 88 08 87 | 22 20 5b 66 6f 72 6d 20 |)...!...|" [form |
|00001d40| 62 79 74 65 2d 68 75 6e | 6b 2d 68 61 6e 64 6c 65 |byte-hun|k-handle|
|00001d50| 72 20 6d 61 63 72 6f 65 | 78 70 61 6e 64 20 28 65 |r macroe|xpand (e|
|00001d60| 76 61 6c 2d 77 68 65 6e | 29 20 62 79 74 65 2d 63 |val-when|) byte-c|
|00001d70| 6f 6d 70 69 6c 65 2d 6d | 61 63 72 6f 2d 65 6e 76 |ompile-m|acro-env|
|00001d80| 69 72 6f 6e 6d 65 6e 74 | 20 70 72 6f 67 6e 20 6d |ironment| progn m|
|00001d90| 61 70 63 61 72 20 63 6c | 2d 63 6f 6d 70 69 6c 65 |apcar cl|-compile|
|00001da0| 2d 74 69 6d 65 2d 74 6f | 6f 20 65 76 61 6c 2d 77 |-time-to|o eval-w|
|00001db0| 68 65 6e 20 77 68 65 6e | 20 65 76 61 6c 20 3a 65 |hen when| eval :e|
|00001dc0| 78 65 63 75 74 65 20 6c | 69 73 74 2a 20 63 6f 6d |xecute l|ist* com|
|00001dd0| 70 69 6c 65 20 63 64 64 | 72 5d 20 35 5d 20 66 62 |pile cdd|r] 5] fb|
|00001de0| 6f 75 6e 64 70 20 65 76 | 61 6c 2d 77 68 65 6e 2d |oundp ev|al-when-|
|00001df0| 63 6f 6d 70 69 6c 65 20 | 61 75 74 6f 6c 6f 61 64 |compile |autoload|
|00001e00| 20 65 76 61 6c 20 28 64 | 65 66 6d 61 63 72 6f 20 | eval (d|efmacro |
|00001e10| 65 76 61 6c 2d 77 68 65 | 6e 2d 63 6f 6d 70 69 6c |eval-whe|n-compil|
|00001e20| 65 20 28 26 72 65 73 74 | 20 62 6f 64 79 29 20 22 |e (&rest| body) "|
|00001e30| 4c 69 6b 65 20 60 70 72 | 6f 67 6e 27 2c 20 62 75 |Like `pr|ogn', bu|
|00001e40| 74 20 65 76 61 6c 75 61 | 74 65 73 20 74 68 65 20 |t evalua|tes the |
|00001e50| 62 6f 64 79 20 61 74 20 | 63 6f 6d 70 69 6c 65 20 |body at |compile |
|00001e60| 74 69 6d 65 2e 5c 6e 54 | 68 65 20 72 65 73 75 6c |time.\nT|he resul|
|00001e70| 74 20 6f 66 20 74 68 65 | 20 62 6f 64 79 20 61 70 |t of the| body ap|
|00001e80| 70 65 61 72 73 20 74 6f | 20 74 68 65 20 63 6f 6d |pears to| the com|
|00001e90| 70 69 6c 65 72 20 61 73 | 20 61 20 71 75 6f 74 65 |piler as| a quote|
|00001ea0| 64 20 63 6f 6e 73 74 61 | 6e 74 2e 22 20 28 6c 69 |d consta|nt." (li|
|00001eb0| 73 74 20 28 71 75 6f 74 | 65 20 71 75 6f 74 65 29 |st (quot|e quote)|
|00001ec0| 20 28 65 76 61 6c 20 28 | 63 6f 6e 73 20 28 71 75 | (eval (|cons (qu|
|00001ed0| 6f 74 65 20 70 72 6f 67 | 6e 29 20 62 6f 64 79 29 |ote prog|n) body)|
|00001ee0| 29 29 29 5d 20 33 29 0a | 28 64 65 66 61 6c 69 61 |)))] 3).|(defalia|
|00001ef0| 73 20 27 6c 6f 61 64 2d | 74 69 6d 65 2d 76 61 6c |s 'load-|time-val|
|00001f00| 75 65 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |ue '(mac|ro . #[(|
|00001f10| 66 6f 72 6d 20 26 6f 70 | 74 69 6f 6e 61 6c 20 72 |form &op|tional r|
|00001f20| 65 61 64 2d 6f 6e 6c 79 | 29 20 22 c0 20 83 47 00 |ead-only|) ". .G.|
|00001f30| c1 c2 21 1b c4 c5 0b 44 | 0e 06 45 1c c7 c8 21 83 |..!....D|..E...!.|
|00001f40| 3a 00 c9 ca 21 83 3a 00 | c9 cb 21 83 3a 00 cc cd |:...!.:.|..!.:...|
|00001f50| ce cf d0 c5 cc 4b 44 45 | cc c5 5c 66 44 44 d1 af |.....KDE|..\fDD..|
|00001f60| 05 4d 88 82 40 00 d2 5c | 66 d3 4a 5c 22 88 d4 c5 |.M..@..\|f.J\"...|
|00001f70| 0b 2a 44 44 87 c5 d5 0e | 06 21 44 87 22 20 5b 63 |.*DD....|.!D." [c|
|00001f80| 6c 2d 63 6f 6d 70 69 6c | 69 6e 67 2d 66 69 6c 65 |l-compil|ing-file|
|00001f90| 20 67 65 6e 74 65 6d 70 | 20 22 2d 2d 63 6c 2d 6c | gentemp| "--cl-l|
|00001fa0| 6f 61 64 2d 74 69 6d 65 | 2d 2d 22 20 74 65 6d 70 |oad-time|--" temp|
|00001fb0| 20 73 65 74 20 71 75 6f | 74 65 20 66 6f 72 6d 20 | set quo|te form |
|00001fc0| 66 62 6f 75 6e 64 70 20 | 62 79 74 65 2d 63 6f 6d |fboundp |byte-com|
|00001fd0| 70 69 6c 65 2d 66 69 6c | 65 2d 66 6f 72 6d 2d 64 |pile-fil|e-form-d|
|00001fe0| 65 66 6d 75 6d 62 6c 65 | 20 62 6f 75 6e 64 70 20 |efmumble| boundp |
|00001ff0| 74 68 69 73 2d 6b 69 6e | 64 20 74 68 61 74 2d 6f |this-kin|d that-o|
|00002000| 6e 65 20 62 79 74 65 2d | 63 6f 6d 70 69 6c 65 2d |ne byte-|compile-|
|00002010| 66 69 6c 65 2d 66 6f 72 | 6d 20 6c 61 6d 62 64 61 |file-for|m lambda|
|00002020| 20 28 66 6f 72 6d 29 20 | 66 73 65 74 20 28 71 75 | (form) |fset (qu|
|00002030| 6f 74 65 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |ote byte|-compile|
|00002040| 2d 66 69 6c 65 2d 66 6f | 72 6d 29 20 28 62 79 74 |-file-fo|rm) (byt|
|00002050| 65 2d 63 6f 6d 70 69 6c | 65 2d 66 69 6c 65 2d 66 |e-compil|e-file-f|
|00002060| 6f 72 6d 20 66 6f 72 6d | 29 20 70 72 69 6e 74 20 |orm form|) print |
|00002070| 6f 75 74 62 75 66 66 65 | 72 20 73 79 6d 62 6f 6c |outbuffe|r symbol|
|00002080| 2d 76 61 6c 75 65 20 65 | 76 61 6c 5d 20 37 20 22 |-value e|val] 7 "|
|00002090| 5c 0a 4c 69 6b 65 20 60 | 70 72 6f 67 6e 27 2c 20 |\.Like `|progn', |
|000020a0| 62 75 74 20 65 76 61 6c | 75 61 74 65 73 20 74 68 |but eval|uates th|
|000020b0| 65 20 62 6f 64 79 20 61 | 74 20 6c 6f 61 64 20 74 |e body a|t load t|
|000020c0| 69 6d 65 2e 0a 54 68 65 | 20 72 65 73 75 6c 74 20 |ime..The| result |
|000020d0| 6f 66 20 74 68 65 20 62 | 6f 64 79 20 61 70 70 65 |of the b|ody appe|
|000020e0| 61 72 73 20 74 6f 20 74 | 68 65 20 63 6f 6d 70 69 |ars to t|he compi|
|000020f0| 6c 65 72 20 61 73 20 61 | 20 71 75 6f 74 65 64 20 |ler as a| quoted |
|00002100| 63 6f 6e 73 74 61 6e 74 | 2e 22 5d 29 29 0a 28 64 |constant|."])).(d|
|00002110| 65 66 61 6c 69 61 73 20 | 27 63 61 73 65 20 27 28 |efalias |'case '(|
|00002120| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 65 78 70 72 20 |macro . |#[(expr |
|00002130| 26 72 65 73 74 20 63 6c | 61 75 73 65 73 29 20 22 |&rest cl|auses) "|
|00002140| c0 09 c2 5c 22 83 0b 00 | 09 82 0d 00 c3 20 1c c5 |...\"...|..... ..|
|00002150| 1e 06 c7 c8 c9 0e 5c 6e | 5c 22 42 1e 0b 5c 66 09 |......\n|\"B..\f.|
|00002160| 3d 83 25 00 0e 0b 82 2d | 00 cc 5c 66 09 44 43 0e |=.%....-|..\f.DC.|
|00002170| 0b 45 2b 87 22 20 5b 63 | 6c 2d 73 69 6d 70 6c 65 |.E+." [c|l-simple|
|00002180| 2d 65 78 70 72 2d 70 20 | 65 78 70 72 20 33 20 67 |-expr-p |expr 3 g|
|00002190| 65 6e 73 79 6d 20 74 65 | 6d 70 20 6e 69 6c 20 68 |ensym te|mp nil h|
|000021a0| 65 61 64 2d 6c 69 73 74 | 20 63 6f 6e 64 20 6d 61 |ead-list| cond ma|
|000021b0| 70 63 61 72 20 23 5b 28 | 63 29 20 22 08 40 c1 3e |pcar #[(|c) ".@.>|
|000021c0| 83 0b 00 c2 82 56 00 08 | 40 c3 3d 83 20 00 c4 c5 |.....V..|@.=. ...|
|000021d0| 0e 06 c7 c8 0e 09 21 44 | 46 82 56 00 08 40 3c 83 |......!D|F.V..@<.|
|000021e0| 39 00 ca 08 40 0e 09 5c | 22 16 09 cb 0e 06 c7 08 |9...@..\|".......|
|000021f0| 40 44 45 82 56 00 08 40 | 0e 09 3e 83 47 00 c4 cc |@DE.V..@|..>.G...|
|00002200| 08 40 5c 22 88 08 40 0e | 09 42 16 09 cd 0e 06 c7 |.@\"..@.|.B......|
|00002210| 08 40 44 45 08 41 86 5c | 5c 00 ce 42 87 22 20 5b |.@DE.A.\|\..B." [|
|00002220| 63 20 28 74 20 6f 74 68 | 65 72 77 69 73 65 29 20 |c (t oth|erwise) |
|00002230| 74 20 65 63 61 73 65 2d | 65 72 72 6f 72 2d 66 6c |t ecase-|error-fl|
|00002240| 61 67 20 65 72 72 6f 72 | 20 22 65 63 61 73 65 20 |ag error| "ecase |
|00002250| 66 61 69 6c 65 64 3a 20 | 25 73 2c 20 25 73 22 20 |failed: |%s, %s" |
|00002260| 74 65 6d 70 20 71 75 6f | 74 65 20 72 65 76 65 72 |temp quo|te rever|
|00002270| 73 65 20 68 65 61 64 2d | 6c 69 73 74 20 61 70 70 |se head-|list app|
|00002280| 65 6e 64 20 6d 65 6d 62 | 65 72 2a 20 22 44 75 70 |end memb|er* "Dup|
|00002290| 6c 69 63 61 74 65 20 6b | 65 79 20 69 6e 20 63 61 |licate k|ey in ca|
|000022a0| 73 65 3a 20 25 73 22 20 | 65 71 6c 20 28 6e 69 6c |se: %s" |eql (nil|
|000022b0| 29 5d 20 36 5d 20 63 6c | 61 75 73 65 73 20 62 6f |)] 6] cl|auses bo|
|000022c0| 64 79 20 6c 65 74 5d 20 | 34 20 22 5c 0a 28 63 61 |dy let] |4 "\.(ca|
|000022d0| 73 65 20 45 58 50 52 20 | 43 4c 41 55 53 45 53 2e |se EXPR |CLAUSES.|
|000022e0| 2e 2e 29 3a 20 65 76 61 | 6c 73 20 45 58 50 52 2c |..): eva|ls EXPR,|
|000022f0| 20 63 68 6f 6f 73 65 73 | 20 66 72 6f 6d 20 43 4c | chooses| from CL|
|00002300| 41 55 53 45 53 20 6f 6e | 20 74 68 61 74 20 76 61 |AUSES on| that va|
|00002310| 6c 75 65 2e 0a 45 61 63 | 68 20 63 6c 61 75 73 65 |lue..Eac|h clause|
|00002320| 20 6c 6f 6f 6b 73 20 6c | 69 6b 65 20 28 4b 45 59 | looks l|ike (KEY|
|00002330| 4c 49 53 54 20 42 4f 44 | 59 2e 2e 2e 29 2e 20 20 |LIST BOD|Y...).  |
|00002340| 45 58 50 52 20 69 73 20 | 65 76 61 6c 75 61 74 65 |EXPR is |evaluate|
|00002350| 64 20 61 6e 64 20 63 6f | 6d 70 61 72 65 64 0a 61 |d and co|mpared.a|
|00002360| 67 61 69 6e 73 74 20 65 | 61 63 68 20 6b 65 79 20 |gainst e|ach key |
|00002370| 69 6e 20 65 61 63 68 20 | 4b 45 59 4c 49 53 54 3b |in each |KEYLIST;|
|00002380| 20 74 68 65 20 63 6f 72 | 72 65 73 70 6f 6e 64 69 | the cor|respondi|
|00002390| 6e 67 20 42 4f 44 59 20 | 69 73 20 65 76 61 6c 75 |ng BODY |is evalu|
|000023a0| 61 74 65 64 2e 0a 49 66 | 20 6e 6f 20 63 6c 61 75 |ated..If| no clau|
|000023b0| 73 65 20 73 75 63 63 65 | 65 64 73 2c 20 63 61 73 |se succe|eds, cas|
|000023c0| 65 20 72 65 74 75 72 6e | 73 20 6e 69 6c 2e 20 20 |e return|s nil.  |
|000023d0| 41 20 73 69 6e 67 6c 65 | 20 61 74 6f 6d 20 6d 61 |A single| atom ma|
|000023e0| 79 20 62 65 20 75 73 65 | 64 20 69 6e 0a 70 6c 61 |y be use|d in.pla|
|000023f0| 63 65 20 6f 66 20 61 20 | 4b 45 59 4c 49 53 54 20 |ce of a |KEYLIST |
|00002400| 6f 66 20 6f 6e 65 20 61 | 74 6f 6d 2e 20 20 41 20 |of one a|tom.  A |
|00002410| 4b 45 59 4c 49 53 54 20 | 6f 66 20 60 74 27 20 6f |KEYLIST |of `t' o|
|00002420| 72 20 60 6f 74 68 65 72 | 77 69 73 65 27 20 69 73 |r `other|wise' is|
|00002430| 0a 61 6c 6c 6f 77 65 64 | 20 6f 6e 6c 79 20 69 6e |.allowed| only in|
|00002440| 20 74 68 65 20 66 69 6e | 61 6c 20 63 6c 61 75 73 | the fin|al claus|
|00002450| 65 2c 20 61 6e 64 20 6d | 61 74 63 68 65 73 20 69 |e, and m|atches i|
|00002460| 66 20 6e 6f 20 6f 74 68 | 65 72 20 6b 65 79 73 20 |f no oth|er keys |
|00002470| 6d 61 74 63 68 2e 0a 4b | 65 79 20 76 61 6c 75 65 |match..K|ey value|
|00002480| 73 20 61 72 65 20 63 6f | 6d 70 61 72 65 64 20 62 |s are co|mpared b|
|00002490| 79 20 60 65 71 6c 27 2e | 22 5d 29 29 0a 28 64 65 |y `eql'.|"])).(de|
|000024a0| 66 61 6c 69 61 73 20 27 | 65 63 61 73 65 20 27 28 |falias '|ecase '(|
|000024b0| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 65 78 70 72 20 |macro . |#[(expr |
|000024c0| 26 72 65 73 74 20 63 6c | 61 75 73 65 73 29 20 22 |&rest cl|auses) "|
|000024d0| c0 c1 5c 6e c3 5c 66 c5 | 5c 22 23 87 22 20 5b 6c |..\n.\f.|\"#." [l|
|000024e0| 69 73 74 2a 20 63 61 73 | 65 20 65 78 70 72 20 61 |ist* cas|e expr a|
|000024f0| 70 70 65 6e 64 20 63 6c | 61 75 73 65 73 20 28 28 |ppend cl|auses ((|
|00002500| 65 63 61 73 65 2d 65 72 | 72 6f 72 2d 66 6c 61 67 |ecase-er|ror-flag|
|00002510| 29 29 5d 20 36 20 22 5c | 0a 28 65 63 61 73 65 20 |))] 6 "\|.(ecase |
|00002520| 45 58 50 52 20 43 4c 41 | 55 53 45 53 2e 2e 2e 29 |EXPR CLA|USES...)|
|00002530| 3a 20 6c 69 6b 65 20 60 | 63 61 73 65 27 2c 20 62 |: like `|case', b|
|00002540| 75 74 20 65 72 72 6f 72 | 20 69 66 20 6e 6f 20 63 |ut error| if no c|
|00002550| 61 73 65 20 66 69 74 73 | 2e 0a 60 6f 74 68 65 72 |ase fits|..`other|
|00002560| 77 69 73 65 27 2d 63 6c | 61 75 73 65 73 20 61 72 |wise'-cl|auses ar|
|00002570| 65 20 6e 6f 74 20 61 6c | 6c 6f 77 65 64 2e 22 5d |e not al|lowed."]|
|00002580| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 79 |)).(defa|lias 'ty|
|00002590| 70 65 63 61 73 65 20 27 | 28 6d 61 63 72 6f 20 2e |pecase '|(macro .|
|000025a0| 20 23 5b 28 65 78 70 72 | 20 26 72 65 73 74 20 63 | #[(expr| &rest c|
|000025b0| 6c 61 75 73 65 73 29 20 | 22 c0 09 c2 5c 22 83 0b |lauses) |"...\"..|
|000025c0| 00 09 82 0d 00 c3 20 1c | c5 1e 06 c7 c8 c9 0e 5c |...... .|.......\|
|000025d0| 6e 5c 22 42 1e 0b 5c 66 | 09 3d 83 25 00 0e 0b 82 |n\"B..\f|.=.%....|
|000025e0| 2d 00 cc 5c 66 09 44 43 | 0e 0b 45 2b 87 22 20 5b |-..\f.DC|..E+." [|
|000025f0| 63 6c 2d 73 69 6d 70 6c | 65 2d 65 78 70 72 2d 70 |cl-simpl|e-expr-p|
|00002600| 20 65 78 70 72 20 33 20 | 67 65 6e 73 79 6d 20 74 | expr 3 |gensym t|
|00002610| 65 6d 70 20 6e 69 6c 20 | 74 79 70 65 2d 6c 69 73 |emp nil |type-lis|
|00002620| 74 20 63 6f 6e 64 20 6d | 61 70 63 61 72 20 23 5b |t cond m|apcar #[|
|00002630| 28 63 29 20 22 08 40 c1 | 3d 83 0b 00 c2 82 2d 00 |(c) ".@.|=.....-.|
|00002640| 08 40 c3 3d 83 20 00 c4 | c5 0e 06 c7 c8 0e 09 21 |.@.=. ..|.......!|
|00002650| 44 46 82 2d 00 08 40 0e | 09 42 16 09 ca 0e 06 08 |DF.-..@.|.B......|
|00002660| 40 5c 22 08 41 86 33 00 | cb 42 87 22 20 5b 63 20 |@\".A.3.|.B." [c |
|00002670| 6f 74 68 65 72 77 69 73 | 65 20 74 20 65 63 61 73 |otherwis|e t ecas|
|00002680| 65 2d 65 72 72 6f 72 2d | 66 6c 61 67 20 65 72 72 |e-error-|flag err|
|00002690| 6f 72 20 22 65 74 79 70 | 65 63 61 73 65 20 66 61 |or "etyp|ecase fa|
|000026a0| 69 6c 65 64 3a 20 25 73 | 2c 20 25 73 22 20 74 65 |iled: %s|, %s" te|
|000026b0| 6d 70 20 71 75 6f 74 65 | 20 72 65 76 65 72 73 65 |mp quote| reverse|
|000026c0| 20 74 79 70 65 2d 6c 69 | 73 74 20 63 6c 2d 6d 61 | type-li|st cl-ma|
|000026d0| 6b 65 2d 74 79 70 65 2d | 74 65 73 74 20 28 6e 69 |ke-type-|test (ni|
|000026e0| 6c 29 5d 20 36 5d 20 63 | 6c 61 75 73 65 73 20 62 |l)] 6] c|lauses b|
|000026f0| 6f 64 79 20 6c 65 74 5d | 20 34 20 22 5c 0a 28 74 |ody let]| 4 "\.(t|
|00002700| 79 70 65 63 61 73 65 20 | 45 58 50 52 20 43 4c 41 |ypecase |EXPR CLA|
|00002710| 55 53 45 53 2e 2e 2e 29 | 3a 20 65 76 61 6c 73 20 |USES...)|: evals |
|00002720| 45 58 50 52 2c 20 63 68 | 6f 6f 73 65 73 20 66 72 |EXPR, ch|ooses fr|
|00002730| 6f 6d 20 43 4c 41 55 53 | 45 53 20 6f 6e 20 74 68 |om CLAUS|ES on th|
|00002740| 61 74 20 76 61 6c 75 65 | 2e 0a 45 61 63 68 20 63 |at value|..Each c|
|00002750| 6c 61 75 73 65 20 6c 6f | 6f 6b 73 20 6c 69 6b 65 |lause lo|oks like|
|00002760| 20 28 54 59 50 45 20 42 | 4f 44 59 2e 2e 2e 29 2e | (TYPE B|ODY...).|
|00002770| 20 20 45 58 50 52 20 69 | 73 20 65 76 61 6c 75 61 |  EXPR i|s evalua|
|00002780| 74 65 64 20 61 6e 64 2c | 20 69 66 20 69 74 0a 73 |ted and,| if it.s|
|00002790| 61 74 69 73 66 69 65 73 | 20 54 59 50 45 2c 20 74 |atisfies| TYPE, t|
|000027a0| 68 65 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |he corre|sponding|
|000027b0| 20 42 4f 44 59 20 69 73 | 20 65 76 61 6c 75 61 74 | BODY is| evaluat|
|000027c0| 65 64 2e 20 20 49 66 20 | 6e 6f 20 63 6c 61 75 73 |ed.  If |no claus|
|000027d0| 65 20 73 75 63 63 65 65 | 64 73 2c 0a 74 79 70 65 |e succee|ds,.type|
|000027e0| 63 61 73 65 20 72 65 74 | 75 72 6e 73 20 6e 69 6c |case ret|urns nil|
|000027f0| 2e 20 20 41 20 54 59 50 | 45 20 6f 66 20 60 74 27 |.  A TYP|E of `t'|
|00002800| 20 6f 72 20 60 6f 74 68 | 65 72 77 69 73 65 27 20 | or `oth|erwise' |
|00002810| 69 73 20 61 6c 6c 6f 77 | 65 64 20 6f 6e 6c 79 20 |is allow|ed only |
|00002820| 69 6e 20 74 68 65 0a 66 | 69 6e 61 6c 20 63 6c 61 |in the.f|inal cla|
|00002830| 75 73 65 2c 20 61 6e 64 | 20 6d 61 74 63 68 65 73 |use, and| matches|
|00002840| 20 69 66 20 6e 6f 20 6f | 74 68 65 72 20 6b 65 79 | if no o|ther key|
|00002850| 73 20 6d 61 74 63 68 2e | 22 5d 29 29 0a 28 64 65 |s match.|"])).(de|
|00002860| 66 61 6c 69 61 73 20 27 | 65 74 79 70 65 63 61 73 |falias '|etypecas|
|00002870| 65 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 65 |e '(macr|o . #[(e|
|00002880| 78 70 72 20 26 72 65 73 | 74 20 63 6c 61 75 73 65 |xpr &res|t clause|
|00002890| 73 29 20 22 c0 c1 5c 6e | c3 5c 66 c5 5c 22 23 87 |s) "..\n|.\f.\"#.|
|000028a0| 22 20 5b 6c 69 73 74 2a | 20 74 79 70 65 63 61 73 |" [list*| typecas|
|000028b0| 65 20 65 78 70 72 20 61 | 70 70 65 6e 64 20 63 6c |e expr a|ppend cl|
|000028c0| 61 75 73 65 73 20 28 28 | 65 63 61 73 65 2d 65 72 |auses ((|ecase-er|
|000028d0| 72 6f 72 2d 66 6c 61 67 | 29 29 5d 20 36 20 22 5c |ror-flag|))] 6 "\|
|000028e0| 0a 28 65 74 79 70 65 63 | 61 73 65 20 45 58 50 52 |.(etypec|ase EXPR|
|000028f0| 20 43 4c 41 55 53 45 53 | 2e 2e 2e 29 3a 20 6c 69 | CLAUSES|...): li|
|00002900| 6b 65 20 60 74 79 70 65 | 63 61 73 65 27 2c 20 62 |ke `type|case', b|
|00002910| 75 74 20 65 72 72 6f 72 | 20 69 66 20 6e 6f 20 63 |ut error| if no c|
|00002920| 61 73 65 20 66 69 74 73 | 2e 0a 60 6f 74 68 65 72 |ase fits|..`other|
|00002930| 77 69 73 65 27 2d 63 6c | 61 75 73 65 73 20 61 72 |wise'-cl|auses ar|
|00002940| 65 20 6e 6f 74 20 61 6c | 6c 6f 77 65 64 2e 22 5d |e not al|lowed."]|
|00002950| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 6c |)).(defa|lias 'bl|
|00002960| 6f 63 6b 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ock '(ma|cro . #[|
|00002970| 28 6e 61 6d 65 20 26 72 | 65 73 74 20 62 6f 64 79 |(name &r|est body|
|00002980| 29 20 22 c0 c1 5c 6e 42 | 21 83 5c 66 00 c1 5c 6e |) "..\nB|!.\f..\n|
|00002990| 42 87 c3 c4 c5 c6 c7 c8 | c9 0e 5c 6e 5c 22 21 44 |B.......|..\n\"!D|
|000029a0| 5c 6e 23 44 87 22 20 5b | 63 6c 2d 73 61 66 65 2d |\n#D." [|cl-safe-|
|000029b0| 65 78 70 72 2d 70 20 70 | 72 6f 67 6e 20 62 6f 64 |expr-p p|rogn bod|
|000029c0| 79 20 63 6c 2d 62 6c 6f | 63 6b 2d 77 72 61 70 70 |y cl-blo|ck-wrapp|
|000029d0| 65 72 20 6c 69 73 74 2a | 20 63 61 74 63 68 20 71 |er list*| catch q|
|000029e0| 75 6f 74 65 20 69 6e 74 | 65 72 6e 20 66 6f 72 6d |uote int|ern form|
|000029f0| 61 74 20 22 2d 2d 63 6c | 2d 62 6c 6f 63 6b 2d 25 |at "--cl|-block-%|
|00002a00| 73 2d 2d 22 20 6e 61 6d | 65 5d 20 38 20 22 5c 0a |s--" nam|e] 8 "\.|
|00002a10| 28 62 6c 6f 63 6b 20 4e | 41 4d 45 20 42 4f 44 59 |(block N|AME BODY|
|00002a20| 2e 2e 2e 29 3a 20 64 65 | 66 69 6e 65 20 61 20 6c |...): de|fine a l|
|00002a30| 65 78 69 63 61 6c 6c 79 | 2d 73 63 6f 70 65 64 20 |exically|-scoped |
|00002a40| 62 6c 6f 63 6b 20 6e 61 | 6d 65 64 20 4e 41 4d 45 |block na|med NAME|
|00002a50| 2e 0a 4e 41 4d 45 20 6d | 61 79 20 62 65 20 61 6e |..NAME m|ay be an|
|00002a60| 79 20 73 79 6d 62 6f 6c | 2e 20 20 43 6f 64 65 20 |y symbol|.  Code |
|00002a70| 69 6e 73 69 64 65 20 74 | 68 65 20 42 4f 44 59 20 |inside t|he BODY |
|00002a80| 66 6f 72 6d 73 20 63 61 | 6e 20 63 61 6c 6c 20 60 |forms ca|n call `|
|00002a90| 72 65 74 75 72 6e 2d 66 | 72 6f 6d 27 0a 74 6f 20 |return-f|rom'.to |
|00002aa0| 6a 75 6d 70 20 70 72 65 | 6d 61 74 75 72 65 6c 79 |jump pre|maturely|
|00002ab0| 20 6f 75 74 20 6f 66 20 | 74 68 65 20 62 6c 6f 63 | out of |the bloc|
|00002ac0| 6b 2e 20 20 54 68 69 73 | 20 64 69 66 66 65 72 73 |k.  This| differs|
|00002ad0| 20 66 72 6f 6d 20 60 63 | 61 74 63 68 27 20 61 6e | from `c|atch' an|
|00002ae0| 64 20 60 74 68 72 6f 77 | 27 0a 69 6e 20 74 77 6f |d `throw|'.in two|
|00002af0| 20 72 65 73 70 65 63 74 | 73 3a 20 20 46 69 72 73 | respect|s:  Firs|
|00002b00| 74 2c 20 74 68 65 20 4e | 41 4d 45 20 69 73 20 61 |t, the N|AME is a|
|00002b10| 6e 20 75 6e 65 76 61 6c | 75 61 74 65 64 20 73 79 |n uneval|uated sy|
|00002b20| 6d 62 6f 6c 20 72 61 74 | 68 65 72 20 74 68 61 6e |mbol rat|her than|
|00002b30| 20 61 0a 71 75 6f 74 65 | 64 20 73 79 6d 62 6f 6c | a.quote|d symbol|
|00002b40| 20 6f 72 20 6f 74 68 65 | 72 20 66 6f 72 6d 3b 20 | or othe|r form; |
|00002b50| 61 6e 64 20 73 65 63 6f | 6e 64 2c 20 4e 41 4d 45 |and seco|nd, NAME|
|00002b60| 20 69 73 20 6c 65 78 69 | 63 61 6c 6c 79 20 72 61 | is lexi|cally ra|
|00002b70| 74 68 65 72 20 74 68 61 | 6e 0a 64 79 6e 61 6d 69 |ther tha|n.dynami|
|00002b80| 63 61 6c 6c 79 20 73 63 | 6f 70 65 64 3a 20 20 4f |cally sc|oped:  O|
|00002b90| 6e 6c 79 20 72 65 66 65 | 72 65 6e 63 65 73 20 74 |nly refe|rences t|
|00002ba0| 6f 20 69 74 20 77 69 74 | 68 69 6e 20 42 4f 44 59 |o it wit|hin BODY|
|00002bb0| 20 77 69 6c 6c 20 77 6f | 72 6b 2e 20 20 54 68 65 | will wo|rk.  The|
|00002bc0| 73 65 0a 72 65 66 65 72 | 65 6e 63 65 73 20 6d 61 |se.refer|ences ma|
|00002bd0| 79 20 61 70 70 65 61 72 | 20 69 6e 73 69 64 65 20 |y appear| inside |
|00002be0| 6d 61 63 72 6f 20 65 78 | 70 61 6e 73 69 6f 6e 73 |macro ex|pansions|
|00002bf0| 2c 20 62 75 74 20 6e 6f | 74 20 69 6e 73 69 64 65 |, but no|t inside|
|00002c00| 20 66 75 6e 63 74 69 6f | 6e 73 0a 63 61 6c 6c 65 | functio|ns.calle|
|00002c10| 64 20 66 72 6f 6d 20 42 | 4f 44 59 2e 22 5d 29 29 |d from B|ODY."]))|
|00002c20| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 21 |.(byte-c|ode "..!|
|00002c30| 84 08 00 c2 11 c3 c4 c5 | c6 23 88 c7 c6 c8 5c 22 |........|.#....\"|
|00002c40| 88 c3 c9 c5 ca 23 88 c7 | ca cb 5c 22 87 22 20 5b |.....#..|..\"." [|
|00002c50| 62 6f 75 6e 64 70 20 63 | 6c 2d 61 63 74 69 76 65 |boundp c|l-active|
|00002c60| 2d 62 6c 6f 63 6b 2d 6e | 61 6d 65 73 20 6e 69 6c |-block-n|ames nil|
|00002c70| 20 70 75 74 20 63 6c 2d | 62 6c 6f 63 6b 2d 77 72 | put cl-|block-wr|
|00002c80| 61 70 70 65 72 20 62 79 | 74 65 2d 63 6f 6d 70 69 |apper by|te-compi|
|00002c90| 6c 65 20 63 6c 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |le cl-by|te-compi|
|00002ca0| 6c 65 2d 62 6c 6f 63 6b | 20 64 65 66 61 6c 69 61 |le-block| defalia|
|00002cb0| 73 20 23 5b 28 63 6c 2d | 66 6f 72 6d 29 20 22 c0 |s #[(cl-|form) ".|
|00002cc0| c1 21 83 38 00 5c 6e 41 | 40 41 40 41 40 c3 42 89 |.!.8.\nA|@A@A@.B.|
|00002cd0| 1c 0d 42 1d c6 c7 c8 5c | 6e 41 40 21 42 21 1e 09 |..B....\|nA@!B!..|
|00002ce0| 5c 66 41 83 32 00 ca cb | 5c 6e 41 40 41 40 0e 09 |\fA.2...|\nA@A@..|
|00002cf0| 45 21 82 36 00 ca 0e 09 | 21 2b 87 ca 5c 6e 41 40 |E!.6....|!+..\nA@|
|00002d00| 21 87 22 20 5b 66 62 6f | 75 6e 64 70 20 62 79 74 |!." [fbo|undp byt|
|00002d10| 65 2d 63 6f 6d 70 69 6c | 65 2d 66 6f 72 6d 2d 64 |e-compil|e-form-d|
|00002d20| 6f 2d 65 66 66 65 63 74 | 20 63 6c 2d 66 6f 72 6d |o-effect| cl-form|
|00002d30| 20 6e 69 6c 20 63 6c 2d | 65 6e 74 72 79 20 63 6c | nil cl-|entry cl|
|00002d40| 2d 61 63 74 69 76 65 2d | 62 6c 6f 63 6b 2d 6e 61 |-active-|block-na|
|00002d50| 6d 65 73 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |mes byte|-compile|
|00002d60| 2d 74 6f 70 2d 6c 65 76 | 65 6c 20 70 72 6f 67 6e |-top-lev|el progn|
|00002d70| 20 63 64 64 72 20 63 6c | 2d 62 6f 64 79 20 62 79 | cddr cl|-body by|
|00002d80| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 66 6f 72 6d 20 |te-compi|le-form |
|00002d90| 63 61 74 63 68 5d 20 35 | 5d 20 63 6c 2d 62 6c 6f |catch] 5|] cl-blo|
|00002da0| 63 6b 2d 74 68 72 6f 77 | 20 63 6c 2d 62 79 74 65 |ck-throw| cl-byte|
|00002db0| 2d 63 6f 6d 70 69 6c 65 | 2d 74 68 72 6f 77 20 23 |-compile|-throw #|
|00002dc0| 5b 28 63 6c 2d 66 6f 72 | 6d 29 20 22 08 41 40 41 |[(cl-for|m) ".A@A|
|00002dd0| 40 09 9e 89 1a 83 10 00 | 5c 6e c3 a1 88 29 c4 c5 |@.......|\n...)..|
|00002de0| 08 41 42 21 87 22 20 5b | 63 6c 2d 66 6f 72 6d 20 |.AB!." [|cl-form |
|00002df0| 63 6c 2d 61 63 74 69 76 | 65 2d 62 6c 6f 63 6b 2d |cl-activ|e-block-|
|00002e00| 6e 61 6d 65 73 20 63 6c | 2d 66 6f 75 6e 64 20 74 |names cl|-found t|
|00002e10| 20 62 79 74 65 2d 63 6f | 6d 70 69 6c 65 2d 6e 6f | byte-co|mpile-no|
|00002e20| 72 6d 61 6c 2d 63 61 6c | 6c 20 74 68 72 6f 77 5d |rmal-cal|l throw]|
|00002e30| 20 34 5d 5d 20 34 29 0a | 28 64 65 66 61 6c 69 61 | 4]] 4).|(defalia|
|00002e40| 73 20 27 72 65 74 75 72 | 6e 20 27 28 6d 61 63 72 |s 'retur|n '(macr|
|00002e50| 6f 20 2e 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |o . #[(&|optional|
|00002e60| 20 72 65 73 29 20 22 c0 | c1 5c 6e 45 87 22 20 5b | res) ".|.\nE." [|
|00002e70| 72 65 74 75 72 6e 2d 66 | 72 6f 6d 20 6e 69 6c 20 |return-f|rom nil |
|00002e80| 72 65 73 5d 20 33 20 22 | 5c 0a 28 72 65 74 75 72 |res] 3 "|\.(retur|
|00002e90| 6e 20 5b 52 45 53 55 4c | 54 5d 29 3a 20 72 65 74 |n [RESUL|T]): ret|
|00002ea0| 75 72 6e 20 66 72 6f 6d | 20 74 68 65 20 62 6c 6f |urn from| the blo|
|00002eb0| 63 6b 20 6e 61 6d 65 64 | 20 6e 69 6c 2e 0a 54 68 |ck named| nil..Th|
|00002ec0| 69 73 20 69 73 20 65 71 | 75 69 76 61 6c 65 6e 74 |is is eq|uivalent|
|00002ed0| 20 74 6f 20 60 28 72 65 | 74 75 72 6e 2d 66 72 6f | to `(re|turn-fro|
|00002ee0| 6d 20 6e 69 6c 20 52 45 | 53 55 4c 54 29 27 2e 22 |m nil RE|SULT)'."|
|00002ef0| 5d 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 72 |])).(def|alias 'r|
|00002f00| 65 74 75 72 6e 2d 66 72 | 6f 6d 20 27 28 6d 61 63 |eturn-fr|om '(mac|
|00002f10| 72 6f 20 2e 20 23 5b 28 | 6e 61 6d 65 20 26 6f 70 |ro . #[(|name &op|
|00002f20| 74 69 6f 6e 61 6c 20 72 | 65 73 29 20 22 c0 c1 c2 |tional r|es) "...|
|00002f30| 0b 5c 22 21 1c c5 c6 5c | 66 44 0e 07 45 29 87 22 |.\"!...\|fD..E)."|
|00002f40| 20 5b 69 6e 74 65 72 6e | 20 66 6f 72 6d 61 74 20 | [intern| format |
|00002f50| 22 2d 2d 63 6c 2d 62 6c | 6f 63 6b 2d 25 73 2d 2d |"--cl-bl|ock-%s--|
|00002f60| 22 20 6e 61 6d 65 20 6e | 61 6d 65 32 20 63 6c 2d |" name n|ame2 cl-|
|00002f70| 62 6c 6f 63 6b 2d 74 68 | 72 6f 77 20 71 75 6f 74 |block-th|row quot|
|00002f80| 65 20 72 65 73 5d 20 34 | 20 22 5c 0a 28 72 65 74 |e res] 4| "\.(ret|
|00002f90| 75 72 6e 2d 66 72 6f 6d | 20 4e 41 4d 45 20 5b 52 |urn-from| NAME [R|
|00002fa0| 45 53 55 4c 54 5d 29 3a | 20 72 65 74 75 72 6e 20 |ESULT]):| return |
|00002fb0| 66 72 6f 6d 20 74 68 65 | 20 62 6c 6f 63 6b 20 6e |from the| block n|
|00002fc0| 61 6d 65 64 20 4e 41 4d | 45 2e 0a 54 68 69 73 20 |amed NAM|E..This |
|00002fd0| 6a 75 6d 70 20 6f 75 74 | 20 74 6f 20 74 68 65 20 |jump out| to the |
|00002fe0| 69 6e 6e 65 72 6d 6f 73 | 74 20 65 6e 63 6c 6f 73 |innermos|t enclos|
|00002ff0| 69 6e 67 20 60 28 62 6c | 6f 63 6b 20 4e 41 4d 45 |ing `(bl|ock NAME|
|00003000| 20 2e 2e 2e 29 27 20 66 | 6f 72 6d 2c 0a 72 65 74 | ...)' f|orm,.ret|
|00003010| 75 72 6e 69 6e 67 20 52 | 45 53 55 4c 54 20 66 72 |urning R|ESULT fr|
|00003020| 6f 6d 20 74 68 61 74 20 | 66 6f 72 6d 20 28 6f 72 |om that |form (or|
|00003030| 20 6e 69 6c 20 69 66 20 | 52 45 53 55 4c 54 20 69 | nil if |RESULT i|
|00003040| 73 20 6f 6d 69 74 74 65 | 64 29 2e 0a 54 68 69 73 |s omitte|d)..This|
|00003050| 20 69 73 20 63 6f 6d 70 | 61 74 69 62 6c 65 20 77 | is comp|atible w|
|00003060| 69 74 68 20 43 6f 6d 6d | 6f 6e 20 4c 69 73 70 2c |ith Comm|on Lisp,|
|00003070| 20 62 75 74 20 6e 6f 74 | 65 20 74 68 61 74 20 60 | but not|e that `|
|00003080| 64 65 66 75 6e 27 20 61 | 6e 64 0a 60 64 65 66 6d |defun' a|nd.`defm|
|00003090| 61 63 72 6f 27 20 64 6f | 20 6e 6f 74 20 63 72 65 |acro' do| not cre|
|000030a0| 61 74 65 20 69 6d 70 6c | 69 63 69 74 20 62 6c 6f |ate impl|icit blo|
|000030b0| 63 6b 73 20 61 73 20 74 | 68 65 79 20 64 6f 20 69 |cks as t|hey do i|
|000030c0| 6e 20 43 6f 6d 6d 6f 6e | 20 4c 69 73 70 2e 22 5d |n Common| Lisp."]|
|000030d0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 6c 6f |)).(defa|lias 'lo|
|000030e0| 6f 70 20 27 28 6d 61 63 | 72 6f 20 2e 20 23 5b 28 |op '(mac|ro . #[(|
|000030f0| 26 72 65 73 74 20 61 72 | 67 73 29 20 22 c0 c1 c2 |&rest ar|gs) "...|
|00003100| c3 c4 c3 c0 c5 0e 06 21 | 5c 22 5c 22 5c 22 3e 84 |.......!|\"\"\">.|
|00003110| 1c 00 c7 c4 c8 c9 c0 0e | 06 23 45 87 c4 89 89 89 |........|.#E.....|
|00003120| 89 89 89 89 89 89 89 89 | 89 89 89 89 1e 5c 6e 1e |........|.....\n.|
|00003130| 0b 1e 5c 66 1e 0d 1e 0e | 1e 0f 1e 10 1e 11 1e 12 |..\f....|........|
|00003140| 1e 13 1e 14 1e 15 1e 16 | 1e 17 1e 18 1e 19 da 0e |........|........|
|00003150| 06 db 5c 22 16 06 0e 06 | 40 dc 3d 84 61 00 dd 20 |..\"....|@.=.a.. |
|00003160| 88 82 53 00 0e 12 83 70 | 00 0e 12 c0 44 43 0e 18 |..S....p|....DC..|
|00003170| 42 16 18 0e 5c 66 83 89 | 00 0e 5c 66 c0 44 43 0e |B...\f..|..\f.DC.|
|00003180| 18 42 16 18 de 0e 5c 66 | c4 45 0e 16 42 16 16 0e |.B....\f|.E..B...|
|00003190| 0e 9f 0e 14 86 93 00 0e | 15 43 a4 1e 1f e0 0e 17 |........|.C......|
|000031a0| 9f 21 1e 21 e2 0e 21 21 | 0e 16 9f a4 1e 23 da 0e |.!.!..!!|.....#..|
|000031b0| 0f 9f 0e 0d 83 d2 00 c7 | e4 e5 0e 21 40 c0 3d 83 |........|...!@.=.|
|000031c0| c1 00 0e 23 82 ca 00 e6 | 0e 21 40 e7 45 0e 23 42 |...#....|.!@.E.#B|
|000031d0| e8 0e 0d 23 45 82 da 00 | c8 c9 0e 21 40 0e 23 23 |...#E...|...!@.##|
|000031e0| 43 0e 12 83 fb 00 0e 1f | e9 9a 83 ed 00 0e 13 43 |C.......|.......C|
|000031f0| 82 fd 00 ea 0e 12 eb 0e | 1f 42 0e 13 46 43 82 fd |........|.B..FC..|
|00003200| 00 0e 1f 23 1e 2c 0e 13 | 83 0d 01 0e 13 43 0e 18 |...#.,..|.....C..|
|00003210| 42 16 18 0e 18 83 58 01 | ed 0e 18 21 83 2b 01 ee |B.....X.|...!.+..|
|00003220| 0e 18 89 41 16 18 40 0e | 2c c0 23 43 16 2c 82 0d |...A..@.|,.#C.,..|
|00003230| 01 c4 1e 2f 0e 18 83 4a | 01 ed 0e 18 21 84 4a 01 |.../...J|....!.J.|
|00003240| 0e 18 89 41 16 18 40 40 | 0e 2f 42 16 2f 82 2e 01 |...A..@@|./B./...|
|00003250| ee 0e 2f 0e 2c c4 23 43 | 16 2c 29 82 0d 01 0e 5c |../.,.#C|.,)....\|
|00003260| 6e 83 67 01 c8 f0 0e 5c | 6e 0e 2c 23 43 16 2c c8 |n.g....\|n.,#C.,.|
|00003270| c7 0e 19 0e 2c 23 2e 14 | 87 22 20 5b 74 20 6d 61 |....,#..|." [t ma|
|00003280| 70 63 61 72 20 73 79 6d | 62 6f 6c 70 20 64 65 6c |pcar sym|bolp del|
|00003290| 71 20 6e 69 6c 20 63 6f | 70 79 2d 6c 69 73 74 20 |q nil co|py-list |
|000032a0| 61 72 67 73 20 62 6c 6f | 63 6b 20 6c 69 73 74 2a |args blo|ck list*|
|000032b0| 20 77 68 69 6c 65 20 6c | 6f 6f 70 2d 73 79 6d 62 | while l|oop-symb|
|000032c0| 6f 6c 2d 6d 61 63 73 20 | 6c 6f 6f 70 2d 64 65 73 |ol-macs |loop-des|
|000032d0| 74 72 2d 74 65 6d 70 73 | 20 6c 6f 6f 70 2d 66 69 |tr-temps| loop-fi|
|000032e0| 72 73 74 2d 66 6c 61 67 | 20 6c 6f 6f 70 2d 6d 61 |rst-flag| loop-ma|
|000032f0| 70 2d 66 6f 72 6d 20 6c | 6f 6f 70 2d 66 69 6e 61 |p-form l|oop-fina|
|00003300| 6c 6c 79 20 6c 6f 6f 70 | 2d 69 6e 69 74 69 61 6c |lly loop|-initial|
|00003310| 6c 79 20 6c 6f 6f 70 2d | 61 63 63 75 6d 2d 76 61 |ly loop-|accum-va|
|00003320| 72 73 20 6c 6f 6f 70 2d | 61 63 63 75 6d 2d 76 61 |rs loop-|accum-va|
|00003330| 72 20 6c 6f 6f 70 2d 66 | 69 6e 69 73 68 2d 66 6c |r loop-f|inish-fl|
|00003340| 61 67 20 6c 6f 6f 70 2d | 72 65 73 75 6c 74 2d 76 |ag loop-|result-v|
|00003350| 61 72 20 6c 6f 6f 70 2d | 72 65 73 75 6c 74 2d 65 |ar loop-|result-e|
|00003360| 78 70 6c 69 63 69 74 20 | 6c 6f 6f 70 2d 72 65 73 |xplicit |loop-res|
|00003370| 75 6c 74 20 6c 6f 6f 70 | 2d 73 74 65 70 73 20 6c |ult loop|-steps l|
|00003380| 6f 6f 70 2d 62 6f 64 79 | 20 6c 6f 6f 70 2d 62 69 |oop-body| loop-bi|
|00003390| 6e 64 69 6e 67 73 20 6c | 6f 6f 70 2d 6e 61 6d 65 |ndings l|oop-name|
|000033a0| 20 61 70 70 65 6e 64 20 | 28 63 6c 2d 65 6e 64 2d | append |(cl-end-|
|000033b0| 6c 6f 6f 70 29 20 63 6c | 2d 65 6e 64 2d 6c 6f 6f |loop) cl|-end-loo|
|000033c0| 70 20 63 6c 2d 70 61 72 | 73 65 2d 6c 6f 6f 70 2d |p cl-par|se-loop-|
|000033d0| 63 6c 61 75 73 65 20 73 | 65 74 71 20 65 70 69 6c |clause s|etq epil|
|000033e0| 6f 67 75 65 20 63 6c 2d | 6c 6f 6f 70 2d 62 75 69 |ogue cl-|loop-bui|
|000033f0| 6c 64 2d 61 6e 64 73 20 | 61 6e 64 73 20 63 61 64 |ld-ands |ands cad|
|00003400| 72 20 77 68 69 6c 65 2d | 62 6f 64 79 20 2d 2d 63 |r while-|body --c|
|00003410| 6c 2d 66 69 6e 69 73 68 | 2d 2d 20 73 75 62 73 74 |l-finish|-- subst|
|00003420| 20 6f 72 20 28 72 65 74 | 75 72 6e 2d 66 72 6f 6d | or (ret|urn-from|
|00003430| 20 2d 2d 63 6c 2d 66 69 | 6e 69 73 68 2d 2d 20 6e | --cl-fi|nish-- n|
|00003440| 69 6c 29 20 2d 2d 63 6c | 2d 6d 61 70 20 28 6e 69 |il) --cl|-map (ni|
|00003450| 6c 29 20 69 66 20 70 72 | 6f 67 6e 20 62 6f 64 79 |l) if pr|ogn body|
|00003460| 20 63 64 61 72 20 63 6c | 2d 6c 6f 6f 70 2d 6c 65 | cdar cl|-loop-le|
|00003470| 74 20 6c 65 74 73 20 73 | 79 6d 62 6f 6c 2d 6d 61 |t lets s|ymbol-ma|
|00003480| 63 72 6f 6c 65 74 5d 20 | 31 36 20 22 5c 0a 28 6c |crolet] |16 "\.(l|
|00003490| 6f 6f 70 20 43 4c 41 55 | 53 45 2e 2e 2e 29 3a 20 |oop CLAU|SE...): |
|000034a0| 54 68 65 20 43 6f 6d 6d | 6f 6e 20 4c 69 73 70 20 |The Comm|on Lisp |
|000034b0| 60 6c 6f 6f 70 27 20 6d | 61 63 72 6f 2e 0a 56 61 |`loop' m|acro..Va|
|000034c0| 6c 69 64 20 63 6c 61 75 | 73 65 73 20 61 72 65 3a |lid clau|ses are:|
|000034d0| 0a 20 20 66 6f 72 20 56 | 41 52 20 66 72 6f 6d 2f |.  for V|AR from/|
|000034e0| 75 70 66 72 6f 6d 2f 64 | 6f 77 6e 66 72 6f 6d 20 |upfrom/d|ownfrom |
|000034f0| 4e 55 4d 20 74 6f 2f 75 | 70 74 6f 2f 64 6f 77 6e |NUM to/u|pto/down|
|00003500| 74 6f 2f 61 62 6f 76 65 | 2f 62 65 6c 6f 77 20 4e |to/above|/below N|
|00003510| 55 4d 20 62 79 20 4e 55 | 4d 2c 0a 20 20 66 6f 72 |UM by NU|M,.  for|
|00003520| 20 56 41 52 20 69 6e 20 | 4c 49 53 54 20 62 79 20 | VAR in |LIST by |
|00003530| 46 55 4e 43 2c 20 66 6f | 72 20 56 41 52 20 6f 6e |FUNC, fo|r VAR on|
|00003540| 20 4c 49 53 54 20 62 79 | 20 46 55 4e 43 2c 20 66 | LIST by| FUNC, f|
|00003550| 6f 72 20 56 41 52 20 3d | 20 49 4e 49 54 20 74 68 |or VAR =| INIT th|
|00003560| 65 6e 20 45 58 50 52 2c | 0a 20 20 66 6f 72 20 56 |en EXPR,|.  for V|
|00003570| 41 52 20 61 63 72 6f 73 | 73 20 41 52 52 41 59 2c |AR acros|s ARRAY,|
|00003580| 20 72 65 70 65 61 74 20 | 4e 55 4d 2c 20 77 69 74 | repeat |NUM, wit|
|00003590| 68 20 56 41 52 20 3d 20 | 49 4e 49 54 2c 20 77 68 |h VAR = |INIT, wh|
|000035a0| 69 6c 65 20 43 4f 4e 44 | 2c 20 75 6e 74 69 6c 20 |ile COND|, until |
|000035b0| 43 4f 4e 44 2c 0a 20 20 | 61 6c 77 61 79 73 20 43 |COND,.  |always C|
|000035c0| 4f 4e 44 2c 20 6e 65 76 | 65 72 20 43 4f 4e 44 2c |OND, nev|er COND,|
|000035d0| 20 74 68 65 72 65 69 73 | 20 43 4f 4e 44 2c 20 63 | thereis| COND, c|
|000035e0| 6f 6c 6c 65 63 74 20 45 | 58 50 52 20 69 6e 74 6f |ollect E|XPR into|
|000035f0| 20 56 41 52 2c 0a 20 20 | 61 70 70 65 6e 64 20 45 | VAR,.  |append E|
|00003600| 58 50 52 20 69 6e 74 6f | 20 56 41 52 2c 20 6e 63 |XPR into| VAR, nc|
|00003610| 6f 6e 63 20 45 58 50 52 | 20 69 6e 74 6f 20 56 41 |onc EXPR| into VA|
|00003620| 52 2c 20 73 75 6d 20 45 | 58 50 52 20 69 6e 74 6f |R, sum E|XPR into|
|00003630| 20 56 41 52 2c 0a 20 20 | 63 6f 75 6e 74 20 45 58 | VAR,.  |count EX|
|00003640| 50 52 20 69 6e 74 6f 20 | 56 41 52 2c 20 6d 61 78 |PR into |VAR, max|
|00003650| 69 6d 69 7a 65 20 45 58 | 50 52 20 69 6e 74 6f 20 |imize EX|PR into |
|00003660| 56 41 52 2c 20 6d 69 6e | 69 6d 69 7a 65 20 45 58 |VAR, min|imize EX|
|00003670| 50 52 20 69 6e 74 6f 20 | 56 41 52 2c 0a 20 20 69 |PR into |VAR,.  i|
|00003680| 66 20 43 4f 4e 44 20 43 | 4c 41 55 53 45 20 5b 61 |f COND C|LAUSE [a|
|00003690| 6e 64 20 43 4c 41 55 53 | 45 5d 2e 2e 2e 20 65 6c |nd CLAUS|E]... el|
|000036a0| 73 65 20 43 4c 41 55 53 | 45 20 5b 61 6e 64 20 43 |se CLAUS|E [and C|
|000036b0| 4c 41 55 53 45 2e 2e 2e | 5d 2c 0a 20 20 75 6e 6c |LAUSE...|],.  unl|
|000036c0| 65 73 73 20 43 4f 4e 44 | 20 43 4c 41 55 53 45 20 |ess COND| CLAUSE |
|000036d0| 5b 61 6e 64 20 43 4c 41 | 55 53 45 5d 2e 2e 2e 20 |[and CLA|USE]... |
|000036e0| 65 6c 73 65 20 43 4c 41 | 55 53 45 20 5b 61 6e 64 |else CLA|USE [and|
|000036f0| 20 43 4c 41 55 53 45 2e | 2e 2e 5d 2c 0a 20 20 64 | CLAUSE.|..],.  d|
|00003700| 6f 20 45 58 50 52 53 2e | 2e 2e 2c 20 69 6e 69 74 |o EXPRS.|.., init|
|00003710| 69 61 6c 6c 79 20 45 58 | 50 52 53 2e 2e 2e 2c 20 |ially EX|PRS..., |
|00003720| 66 69 6e 61 6c 6c 79 20 | 45 58 50 52 53 2e 2e 2e |finally |EXPRS...|
|00003730| 2c 20 72 65 74 75 72 6e | 20 45 58 50 52 2c 0a 20 |, return| EXPR,. |
|00003740| 20 66 69 6e 61 6c 6c 79 | 20 72 65 74 75 72 6e 20 | finally| return |
|00003750| 45 58 50 52 2c 20 6e 61 | 6d 65 64 20 4e 41 4d 45 |EXPR, na|med NAME|
|00003760| 2e 22 5d 29 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |."])).(b|yte-code|
|00003770| 20 22 c0 c1 c2 5c 22 88 | c0 c3 c4 5c 22 88 c0 c5 | "...\".|...\"...|
|00003780| c6 5c 22 88 c0 c7 c8 5c | 22 87 22 20 5b 64 65 66 |.\"....\|"." [def|
|00003790| 61 6c 69 61 73 20 63 6c | 2d 70 61 72 73 65 2d 6c |alias cl|-parse-l|
|000037a0| 6f 6f 70 2d 63 6c 61 75 | 73 65 20 23 5b 6e 69 6c |oop-clau|se #[nil|
|000037b0| 20 22 08 89 41 10 40 c1 | c2 1b 1c 1d 08 84 15 00 | "..A.@.|........|
|000037c0| c6 c7 21 88 82 cc 0d 0d | c8 3d 83 25 00 08 89 41 |..!.....|.=.%...A|
|000037d0| 10 40 16 09 82 cc 0d 0d | ca 3d 83 52 00 08 40 cb |.@......|.=.R..@.|
|000037e0| 3e 83 35 00 08 41 10 08 | 40 3a 84 3f 00 c6 cc 21 |>.5..A..|@:.?...!|
|000037f0| 88 08 40 3a 83 cc 0d 08 | 89 41 10 40 0e 0d 42 16 |..@:....|.A.@..B.|
|00003800| 0d 82 3f 00 0d ce 3d 83 | b3 00 08 40 cf 3d 83 6f |..?...=.|...@.=.o|
|00003810| 00 08 41 40 08 41 41 10 | 86 6a 00 d0 16 11 82 cc |..A@.AA.|.j......|
|00003820| 0d 08 40 d2 3e 83 79 00 | 08 41 10 08 40 3a 84 83 |..@.>.y.|.A..@:..|
|00003830| 00 c6 d3 21 88 d4 08 21 | cf 3d 83 a0 00 0e 09 84 |...!...!|.=......|
|00003840| a0 00 08 89 41 10 40 41 | 40 86 9b 00 d5 16 11 82 |....A.@A|@.......|
|00003850| cc 0d 08 40 3a 83 cc 0d | 08 89 41 10 40 0e 16 42 |...@:...|..A.@..B|
|00003860| 16 16 82 a0 00 0d d7 3e | 83 1b 09 d8 89 89 89 1e |.......>|........|
|00003870| 19 1e 1a 1e 1b 1e 1c 08 | 89 41 10 40 86 cf 00 dd |........|.A.@....|
|00003880| 20 1e 1e 08 89 41 10 40 | 89 15 df 3d 83 e3 00 08 | ....A.@|...=....|
|00003890| 89 41 10 40 15 0d e0 3e | 83 ef 00 08 89 41 10 40 |.A.@...>|.....A.@|
|000038a0| 15 0d e1 3e 83 fb 00 e2 | 15 e3 08 42 10 0d e4 3e |...>....|...B...>|
|000038b0| 83 0f 02 0d 08 42 89 10 | 40 e5 3e 83 10 01 c6 e6 |.....B..|@.>.....|
|000038c0| 21 88 08 40 e7 3d 86 1c | 01 e8 08 21 e9 3e 1e 2a |!..@.=..|...!.>.*|
|000038d0| 08 40 eb 3e 86 2a 01 e8 | 08 21 ec 3e 1e 2d 08 40 |.@.>.*..|.!.>.-.@|
|000038e0| ee 3e 85 3a 01 08 41 40 | 08 41 41 10 1e 2f 08 40 |.>.:..A@|.AA../.@|
|000038f0| f0 3e 85 4a 01 08 41 40 | 08 41 41 10 1e 31 08 40 |.>.J..A@|.AA..1.@|
|00003900| f2 3d 85 5a 01 08 41 40 | 08 41 41 10 1e 33 f4 0e |.=.Z..A@|.AA..3..|
|00003910| 31 21 3f 85 66 01 dd 20 | 1e 35 f4 0e 33 21 3f 85 |1!?.f.. |.5..3!?.|
|00003920| 72 01 dd 20 1e 36 0e 33 | 83 8c 01 0e 33 a7 83 8c |r.. .6.3|....3...|
|00003930| 01 0e 33 f7 58 83 8c 01 | c6 f8 0e 33 5c 22 88 0e |..3.X...|...3\"..|
|00003940| 1e 0e 2f 86 94 01 f7 44 | 0e 1c 42 16 1c 0e 35 83 |../....D|..B...5.|
|00003950| a9 01 0e 35 0e 31 44 0e | 1c 42 16 1c 0e 36 83 b8 |...5.1D.|.B...6..|
|00003960| 01 0e 36 0e 33 44 0e 1c | 42 16 1c 0e 31 83 e8 01 |..6.3D..|B...1...|
|00003970| 0e 2a 83 cf 01 0e 2d 83 | cb 01 f9 82 d9 01 fa 82 |.*....-.|........|
|00003980| d9 01 0e 2d 83 d8 01 fb | 82 d9 01 fc 0e 1e 0e 35 |...-....|.......5|
|00003990| 86 e2 01 0e 31 45 0e 3d | 42 16 3d 0e 1e 0e 2a 83 |....1E.=|B.=...*.|
|000039a0| f3 01 fe 82 f4 01 ff 0e | 1e 0e 36 86 03 02 0e 33 |........|..6....3|
|000039b0| 86 03 02 81 40 00 45 44 | 0e 1a 42 16 1a 2e 07 82 |....@.ED|..B.....|
|000039c0| 9d 08 0d 81 41 00 3e 83 | d3 02 0d 81 42 00 3d 89 |....A.>.|....B.=.|
|000039d0| 1e 42 83 2d 02 0e 1e 39 | 83 2d 02 0e 1e 82 2f 02 |.B.-...9|.-..../.|
|000039e0| dd 20 89 1e 43 08 89 41 | 10 40 44 0e 1c 42 16 1c |. ..C..A|.@D..B..|
|000039f0| 81 44 00 0e 43 44 0e 3d | 42 16 3d 0d 81 45 00 3d |.D..CD.=|B.=..E.=|
|00003a00| 83 61 02 0e 1e 81 46 00 | 0e 43 44 44 0e 47 42 16 |.a....F.|.CDD.GB.|
|00003a10| 47 82 8a 02 0e 43 0e 1e | 3d 84 8a 02 0e 1e d8 44 |G....C..|=......D|
|00003a20| 0e 1c 42 16 1c 0e 1e 0e | 42 83 7e 02 0e 43 82 84 |..B.....|B.~..C..|
|00003a30| 02 81 46 00 0e 43 44 44 | 0e 1b 42 16 1b 0e 43 08 |..F..CDD|..B...C.|
|00003a40| 40 f2 3d 83 c3 02 08 41 | 40 08 41 41 10 89 1e 33 |@.=....A|@.AA...3|
|00003a50| a2 81 48 00 3e 83 b7 02 | 0e 33 41 40 39 83 b7 02 |..H.>...|.3A@9...|
|00003a60| 0e 33 41 40 0e 43 44 82 | bf 02 81 49 00 0e 33 0e |.3A@.CD.|...I..3.|
|00003a70| 43 45 29 82 c9 02 81 4a | 00 0e 43 44 44 0e 1a 42 |CE)....J|..CDD..B|
|00003a80| 16 1a 2a 82 9d 08 0d 81 | 4b 00 3d 83 62 03 08 89 |..*.....|K.=.b...|
|00003a90| 41 10 40 1e 2f 08 40 81 | 4c 00 3d 83 f5 02 08 41 |A.@./.@.|L.=....A|
|00003aa0| 40 08 41 41 10 82 f7 02 | 0e 2f 1e 4c 0e 1e d8 44 |@.AA....|./.L...D|
|00003ab0| 0e 1c 42 16 1c 0e 19 84 | 10 03 08 40 81 4d 00 3d |..B.....|...@.M.=|
|00003ac0| 83 37 03 0e 1e 81 4e 00 | 0e 4f 86 1f 03 dd 20 89 |.7....N.|.O.... .|
|00003ad0| 16 4f 0e 2f 0e 1e 46 44 | 0e 1b 42 16 1b 0e 1e 0e |.O./..FD|..B.....|
|00003ae0| 4c 44 0e 1a 42 16 1a 82 | 5e 03 0e 1e 0e 2f 0e 4c |LD..B...|^..../.L|
|00003af0| 3d 83 46 03 0e 2f 82 58 | 03 81 4e 00 0e 4f 86 53 |=.F../.X|..N..O.S|
|00003b00| 03 dd 20 89 16 4f 0e 2f | 0e 4c 46 44 0e 1b 42 16 |.. ..O./|.LFD..B.|
|00003b10| 1b 2a 82 9d 08 0d 81 50 | 00 3e 83 da 03 dd 20 dd |.*.....P|.>.... .|
|00003b20| 20 1e 51 89 1e 52 08 89 | 41 10 40 44 0e 1c 42 16 | .Q..R..|A.@D..B.|
|00003b30| 1c 0e 51 81 53 00 44 0e | 1c 42 16 1c fb 81 54 00 |..Q.S.D.|.B....T.|
|00003b40| 0e 51 81 55 00 0e 51 44 | 45 81 56 00 0e 52 44 45 |.Q.U..QD|E.V..RDE|
|00003b50| 0e 3d 42 16 3d 0d 81 57 | 00 3d 83 bd 03 0e 1e 81 |.=B.=..W|.=......|
|00003b60| 58 00 0e 52 0e 51 45 44 | 0e 47 42 16 47 82 d6 03 |X..R.QED|.GB.G...|
|00003b70| 0e 1e d8 44 0e 1c 42 16 | 1c 0e 1e 81 58 00 0e 52 |...D..B.|....X..R|
|00003b80| 0e 51 45 44 0e 1b 42 16 | 1b 2a 82 9d 08 0d 81 59 |.QED..B.|.*.....Y|
|00003b90| 00 3e 83 e7 04 08 40 81 | 5a 00 3e 86 fa 03 08 40 |.>....@.|Z.>....@|
|00003ba0| 81 5b 00 3e 3f 85 fa 03 | c6 81 5c 5c 00 21 08 41 |.[.>?...|..\\.!.A|
|00003bb0| 40 08 41 41 10 dd 20 08 | 40 81 5d 00 3d 83 3b 04 |@.AA.. .|@.].=.;.|
|00003bc0| 81 5e 00 08 21 47 81 5f | 00 55 83 33 04 81 60 00 |.^..!G._|.U.3..`.|
|00003bd0| 08 21 81 61 00 3d 83 33 | 04 81 5e 00 08 41 40 08 |.!.a.=.3|..^..A@.|
|00003be0| 41 41 10 21 82 3d 04 c6 | 81 62 00 21 82 3d 04 dd |AA.!.=..|.b.!.=..|
|00003bf0| 20 1e 51 1e 63 1e 64 1e | 65 0e 63 0e 64 44 0e 1c | .Q.c.d.|e.c.dD..|
|00003c00| 42 16 1c 0e 51 f7 44 0e | 1c 42 16 1c 0e 65 83 8d |B...Q.D.|.B...e..|
|00003c10| 04 dd 20 89 1e 66 81 56 | 00 0e 63 44 44 0e 1c 42 |.. ..f.V|..cDD..B|
|00003c20| 16 1c 0e 1e 81 67 00 0e | 63 0e 51 45 44 0e 47 42 |.....g..|c.QED.GB|
|00003c30| 16 47 fb 0e 51 0e 66 45 | 0e 3d 42 16 3d 29 82 d5 |.G..Q.fE|.=B.=)..|
|00003c40| 04 0e 1e d8 44 0e 1c 42 | 16 1c 81 4d 00 0e 63 81 |....D..B|...M..c.|
|00003c50| 68 00 81 44 00 0e 63 44 | fb 0e 51 81 56 00 0e 63 |h..D..cD|..Q.V..c|
|00003c60| 44 45 45 45 0e 3d 42 16 | 3d 0e 1e 81 4e 00 81 44 |DEEE.=B.|=...N..D|
|00003c70| 00 0e 63 44 81 69 00 0e | 63 44 81 58 00 0e 63 0e |..cD.i..|cD.X..c.|
|00003c80| 51 45 46 44 0e 1b 42 16 | 1b 0e 51 81 55 00 0e 51 |QEFD..B.|..Q.U..Q|
|00003c90| 44 44 0e 1a 42 16 1a 2c | 82 9d 08 0d 5c 66 3e 83 |DD..B..,|....\f>.|
|00003ca0| 78 05 08 40 81 6a 00 3e | 84 fc 04 c6 81 5c 5c 00 |x..@.j.>|.....\\.|
|00003cb0| 21 88 08 41 40 08 41 41 | 10 1e 6b 08 40 81 5d 00 |!..A@.AA|..k.@.].|
|00003cc0| 3d 83 45 05 81 5e 00 08 | 21 47 81 5f 00 55 83 3d |=.E..^..|!G._.U.=|
|00003cd0| 05 81 60 00 08 21 5c 66 | 3e 83 3d 05 81 60 00 08 |..`..!\f|>.=..`..|
|00003ce0| 21 0d 3d 84 3d 05 81 5e | 00 08 41 40 08 41 41 10 |!.=.=..^|..A@.AA.|
|00003cf0| 21 82 47 05 c6 81 62 00 | 21 82 47 05 dd 20 1e 6c |!.G...b.|!.G.. .l|
|00003d00| 0d 81 6d 00 3e 83 59 05 | 0e 6c 0e 1e 16 6c 16 1e |..m.>.Y.|.l...l..|
|00003d10| 81 6e 00 81 6f 00 81 70 | 00 81 71 00 0e 1e 0e 6c |.n..o..p|..q....l|
|00003d20| 44 81 72 00 23 44 0e 6b | 45 16 73 2a 82 9d 08 0d |D.r.#D.k|E.s*....|
|00003d30| 81 74 00 3e 83 af 05 08 | 40 81 75 00 3e 85 90 05 |.t.>....|@.u.>...|
|00003d40| 08 41 40 08 41 41 10 1e | 76 81 77 00 81 6f 00 81 |.A@.AA..|v.w..o..|
|00003d50| 70 00 81 71 00 0e 1e 43 | 81 72 00 23 44 0e 76 45 |p..q...C|.r.#D.vE|
|00003d60| 16 73 29 82 9d 08 0d 81 | 78 00 3e 83 21 06 d8 89 |.s).....|x.>.!...|
|00003d70| 89 1e 79 1e 7a 1e 7b 08 | 40 81 7c 00 3e 83 ff 05 |..y.z.{.|@.|.>...|
|00003d80| 08 40 81 7a 00 3d 83 de | 05 08 41 40 08 41 41 10 |.@.z.=..|..A@.AA.|
|00003d90| 16 7a 82 c0 05 08 40 81 | 79 00 3d 83 f3 05 08 41 |.z....@.|y.=....A|
|00003da0| 40 08 41 41 10 16 79 82 | c0 05 08 41 40 08 41 41 |@.AA..y.|...A@.AA|
|00003db0| 10 16 7b 82 c0 05 81 7d | 00 81 6f 00 81 71 00 0e |..{....}|..o..q..|
|00003dc0| 1e dd 20 44 81 7e 00 d8 | 46 44 0e 7b 0e 7a 0e 79 |.. D.~..|FD.{.z.y|
|00003dd0| af 05 16 73 2b 82 9d 08 | 0d 81 7f 00 3e 83 e6 06 |...s+...|....>...|
|00003de0| d8 89 89 89 dd 20 dd 20 | 1e 80 1e 81 1e 79 1e 7a |..... . |.....y.z|
|00003df0| 1e 82 1e 7b 08 40 81 83 | 00 3e 83 91 06 08 40 81 |...{.@..|.>....@.|
|00003e00| 7a 00 3d 83 5b 06 08 41 | 40 08 41 41 10 16 7a 82 |z.=.[..A|@.AA..z.|
|00003e10| 3d 06 08 40 81 79 00 3d | 83 70 06 08 41 40 08 41 |=..@.y.=|.p..A@.A|
|00003e20| 41 10 16 79 82 3d 06 08 | 40 81 84 00 3d 83 85 06 |A..y.=..|@...=...|
|00003e30| 08 41 40 08 41 41 10 16 | 82 82 3d 06 08 41 40 08 |.A@.AA..|..=..A@.|
|00003e40| 41 41 10 16 7b 82 3d 06 | 0e 1e 3a 83 b2 06 0e 1e |AA..{.=.|..:.....|
|00003e50| 40 39 83 b2 06 0e 1e 41 | 39 83 b2 06 0e 1e 40 16 |@9.....A|9.....@.|
|00003e60| 81 0e 1e 41 16 80 82 c2 | 06 0e 1e 81 85 00 0e 81 |...A....|........|
|00003e70| 0e 80 45 44 0e 1b 42 16 | 1b 81 86 00 81 6f 00 81 |..ED..B.|.....o..|
|00003e80| 71 00 0e 81 0e 80 44 81 | 87 00 45 44 0e 7b 0e 82 |q.....D.|..ED.{..|
|00003e90| 0e 7a 0e 79 af 06 16 73 | 2e 06 82 9d 08 0d 0b 3e |.z.y...s|.......>|
|00003ea0| 83 85 07 08 40 81 88 00 | 3e 84 fb 06 c6 81 5c 5c |....@...|>.....\\|
|00003eb0| 00 21 88 08 41 40 08 41 | 41 89 10 40 81 5d 00 3d |.!..A@.A|A..@.].=|
|00003ec0| 83 42 07 81 5e 00 08 21 | 47 81 5f 00 55 83 3a 07 |.B..^..!|G._.U.:.|
|00003ed0| 81 60 00 08 21 0b 3e 83 | 3a 07 81 60 00 08 21 0d |.`..!.>.|:..`..!.|
|00003ee0| 3d 84 3a 07 81 5e 00 08 | 41 40 08 41 41 10 21 82 |=.:..^..|A@.AA.!.|
|00003ef0| 44 07 c6 81 62 00 21 82 | 44 07 dd 20 1e 6c 1e 89 |D...b.!.|D.. .l..|
|00003f00| 0d 81 8a 00 3e 83 58 07 | 0e 6c 0e 1e 16 6c 16 1e |....>.X.|.l...l..|
|00003f10| 0d 81 8b 00 3e 83 66 07 | 81 8c 00 82 69 07 81 8d |....>.f.|....i...|
|00003f20| 00 81 6f 00 81 70 00 81 | 71 00 0e 1e 0e 6c 44 81 |..o..p..|q....lD.|
|00003f30| 72 00 23 44 0e 89 45 16 | 73 2a 82 9d 08 0d 81 8e |r.#D..E.|s*......|
|00003f40| 00 3e 83 f8 07 dd 20 1e | 43 0e 1e 0e 8f 81 90 00 |.>.... .|C.......|
|00003f50| 3d 83 a2 07 81 91 00 82 | a5 07 81 92 00 44 0e 1c |=.......|.....D..|
|00003f60| 42 16 1c 0e 43 d8 44 0e | 1c 42 16 1c 81 93 00 81 |B...C.D.|.B......|
|00003f70| 94 00 81 95 00 0e 1e 0e | 43 45 44 81 68 00 0e 43 |........|CED.h..C|
|00003f80| 81 54 00 0e 43 0e 1e 45 | 45 45 0e 3d 42 16 3d 0e |.T..C..E|EE.=B.=.|
|00003f90| 1e 0e 8f 81 90 00 3d 83 | e8 07 81 96 00 82 eb 07 |......=.|........|
|00003fa0| 81 97 00 0e 1e 44 44 0e | 1a 42 16 1a 29 82 9d 08 |.....DD.|.B..)...|
|00003fb0| 0d 81 98 00 3e 83 7c 08 | 08 40 81 99 00 3e 85 10 |....>.|.|.@...>..|
|00003fc0| 08 08 41 40 08 41 41 10 | dd 20 1e 43 1e 9a 0e 1e |..A@.AA.|. .C....|
|00003fd0| 0e 9a 83 35 08 0e 8f 81 | 90 00 3d 83 2c 08 81 9b |...5....|..=.,...|
|00003fe0| 00 82 2f 08 81 9c 00 0e | 9a 44 82 38 08 81 9d 00 |../.....|.D.8....|
|00003ff0| 44 0e 1c 42 16 1c 0e 43 | d8 44 0e 1c 42 16 1c 81 |D..B...C|.D..B...|
|00004000| 93 00 81 94 00 81 95 00 | 0e 1e 0e 43 45 44 81 68 |........|...CED.h|
|00004010| 00 0e 43 81 54 00 0e 43 | 0e 1e 45 45 45 0e 3d 42 |..C.T..C|..EEE.=B|
|00004020| 16 3d 0e 1e 81 9e 00 0e | 1e 44 44 0e 1a 42 16 1a |.=......|.DD..B..|
|00004030| 2a 82 9d 08 0d 39 85 86 | 08 0d 81 9f 00 4e 89 1e |*....9..|.....N..|
|00004040| a0 83 95 08 0e a0 0e 1e | 21 88 82 9c 08 c6 81 a1 |........|!.......|
|00004050| 00 0d 5c 22 88 29 08 40 | 29 81 4d 00 3d 83 b4 08 |..\".).@|).M.=...|
|00004060| 81 a2 00 16 19 08 89 41 | 10 88 82 c5 00 0e 19 83 |.......A|........|
|00004070| c9 08 0e 1c 83 c9 08 0e | 1c 9f 0e a3 42 16 a3 82 |........|....B...|
|00004080| d7 08 81 a4 00 81 a5 00 | 0e 1c 5c 22 0e a3 a4 16 |........|..\"....|
|00004090| a3 0e 1b 83 f4 08 81 a6 | 00 81 a7 00 0e 1b 9f 81 |........|........|
|000040a0| 54 00 0e 19 23 81 a2 00 | 45 0e 3d 42 16 3d 0e 1a |T...#...|E.=B.=..|
|000040b0| 83 17 09 0e 19 83 04 09 | 81 a8 00 82 07 09 81 54 |........|.......T|
|000040c0| 00 81 a9 00 81 aa 00 0e | 1a 9f 5c 22 42 0e ab 42 |........|..\"B..B|
|000040d0| 16 ab 2c 82 cc 0d 0d 81 | ac 00 3d 83 4c 09 dd 20 |..,.....|..=.L.. |
|000040e0| 89 1e 43 08 89 41 10 40 | 44 43 0e a3 42 16 a3 fa |..C..A.@|DC..B...|
|000040f0| 81 54 00 0e 43 81 ad 00 | 0e 43 44 45 f7 45 0e 3d |.T..C...|.CDE.E.=|
|00004100| 42 16 3d 29 82 cc 0d 0d | 81 ae 00 3d 83 a6 09 08 |B.=)....|...=....|
|00004110| 89 41 10 40 81 af 00 d8 | 81 b0 00 5c 22 1e 1e 1e |.A.@....|...\"...|
|00004120| b1 0e 1e 0e b2 3d 83 84 | 09 81 a6 00 81 b3 00 0e |.....=..|........|
|00004130| b1 0e 1e 45 81 a2 00 45 | 0e 3d 42 16 3d 82 a2 09 |...E...E|.=B.=...|
|00004140| 81 a6 00 81 54 00 0e 1e | 81 b4 00 0e 1e 81 a5 00 |....T...|........|
|00004150| 0e b1 44 45 45 81 a2 00 | 45 0e 3d 42 16 3d 2a 82 |..DEE...|E.=B.=*.|
|00004160| cc 0d 0d 81 b5 00 3e 83 | 0f 5c 6e 08 89 41 10 40 |......>.|.\n..A.@|
|00004170| 81 af 00 d8 81 b0 00 5c | 22 1e 1e 1e b1 81 a6 00 |.......\|".......|
|00004180| 81 54 00 0e 1e 89 0e b2 | 3d 83 eb 09 81 b4 00 0d |.T......|=.......|
|00004190| 81 b6 00 3e 83 df 09 81 | b0 00 82 e2 09 81 b7 00 |...>....|........|
|000041a0| 0e b1 44 0e 1e 45 82 01 | 5c 6e 0d 81 b8 00 3e 83 |..D..E..|\n....>.|
|000041b0| f9 09 81 b4 00 82 fc 09 | 81 aa 00 0e 1e 0e b1 45 |........|.......E|
|000041c0| 45 81 a2 00 45 0e 3d 42 | 16 3d 2a 82 cc 0d 0d 81 |E...E.=B|.=*.....|
|000041d0| b9 00 3e 83 42 5c 6e 08 | 89 41 10 40 81 af 00 81 |..>.B\n.|.A.@....|
|000041e0| ba 00 21 1e 1e 1e b1 81 | a6 00 81 bb 00 81 bc 00 |..!.....|........|
|000041f0| 0e 1e 0e b1 46 81 a2 00 | 45 0e 3d 42 16 3d 2a 82 |....F...|E.=B.=*.|
|00004200| cc 0d 0d 81 bd 00 3e 83 | 75 5c 6e 08 89 41 10 40 |......>.|u\n..A.@|
|00004210| 81 af 00 81 be 00 21 1e | 1e 1e b1 81 a6 00 81 bb |......!.|........|
|00004220| 00 81 bf 00 0e 1e 0e b1 | 46 81 a2 00 45 0e 3d 42 |........|F...E.=B|
|00004230| 16 3d 2a 82 cc 0d 0d 81 | c0 00 3e 83 a3 5c 6e 08 |.=*.....|..>..\n.|
|00004240| 89 41 10 40 81 af 00 f7 | 21 1e 1e 1e b1 81 a6 00 |.A.@....|!.......|
|00004250| 81 c1 00 0e 1e 0e b1 45 | 81 a2 00 45 0e 3d 42 16 |.......E|...E.=B.|
|00004260| 3d 2a 82 cc 0d 0d 81 c2 | 00 3e 83 d5 5c 6e 08 89 |=*......|.>..\n..|
|00004270| 41 10 40 81 af 00 f7 21 | 1e 1e 1e b1 81 a6 00 81 |A.@....!|........|
|00004280| 4e 00 0e b1 81 c1 00 0e | 1e 44 45 81 a2 00 45 0e |N.......|.DE...E.|
|00004290| 3d 42 16 3d 2a 82 cc 0d | 0d 81 c3 00 3e 83 4d 0b |=B.=*...|....>.M.|
|000042a0| 08 89 41 10 40 1e b1 81 | c4 00 0e b1 21 83 f2 5c |..A.@...|....!..\|
|000042b0| 6e 0e b1 82 f4 5c 6e dd | 20 1e 43 81 af 00 d8 21 |n....\n.| .C....!|
|000042c0| 1e 1e 81 c5 00 81 c6 00 | 0d 21 f7 81 c7 00 4f 21 |........|.!....O!|
|000042d0| 1e c8 81 54 00 0e 1e 81 | 4e 00 0e 1e 0e c8 0e 1e |...T....|N.......|
|000042e0| 0e 43 45 0e 43 46 45 1e | c9 81 a6 00 0e 43 0e b1 |.CE.CFE.|.....C..|
|000042f0| 3d 83 34 0b 0e c9 82 40 | 0b 81 ca 00 0e 43 0e b1 |=.4....@|.....C..|
|00004300| 44 43 0e c9 45 81 a2 00 | 45 0e 3d 42 16 3d 2d 82 |DC..E...|E.=B.=-.|
|00004310| cc 0d 0d 81 cb 00 3d 83 | 90 0b d8 1e cc 08 89 41 |......=.|.......A|
|00004320| 10 40 08 40 81 4b 00 3d | 85 6d 0b 08 41 40 08 41 |.@.@.K.=|.m..A@.A|
|00004330| 41 10 44 0e cc 42 16 cc | 08 40 81 4d 00 3d 83 84 |A.D..B..|.@.M.=..|
|00004340| 0b 08 89 41 10 88 82 58 | 0b 0e cc 9f 0e a3 42 16 |...A...X|......B.|
|00004350| a3 29 82 cc 0d 0d 81 cd | 00 3d 83 a5 0b 08 89 41 |.)......|.=.....A|
|00004360| 10 40 0e 3d 42 16 3d 82 | cc 0d 0d 81 ce 00 3d 83 |.@.=B.=.|......=.|
|00004370| be 0b 81 94 00 08 89 41 | 10 40 44 0e 3d 42 16 3d |.......A|.@D.=B.=|
|00004380| 82 cc 0d 0d 81 cf 00 3d | 83 e7 0b 0e d0 84 cf 0b |.......=|........|
|00004390| dd 20 16 d0 81 54 00 0e | d0 08 89 41 10 40 45 0e |. ...T..|...A.@E.|
|000043a0| 3d 42 16 3d 81 a2 00 16 | d1 82 cc 0d 0d 81 d2 00 |=B.=....|........|
|000043b0| 3d 83 14 5c 66 0e d0 84 | f8 0b dd 20 16 d0 81 54 |=..\f...|... ...T|
|000043c0| 00 0e d0 81 94 00 08 89 | 41 10 40 44 45 0e 3d 42 |........|A.@DE.=B|
|000043d0| 16 3d 81 a2 00 16 d1 82 | cc 0d 0d 81 d3 00 3d 83 |.=......|......=.|
|000043e0| 4b 5c 66 0e d0 84 25 5c | 66 dd 20 16 d0 0e d4 84 |K\f...%\|f. .....|
|000043f0| 2e 5c 66 dd 20 16 d4 81 | 54 00 0e d0 81 94 00 81 |.\f. ...|T.......|
|00004400| 54 00 0e d4 08 89 41 10 | 40 45 44 45 0e 3d 42 16 |T.....A.|@EDE.=B.|
|00004410| 3d 82 cc 0d 0d 81 d5 00 | 3e 83 43 0d 08 89 41 10 |=.......|>.C...A.|
|00004420| 40 1e d6 d8 1e 3d 81 d7 | 00 20 88 81 d8 00 0e 3d |@....=..|. .....=|
|00004430| 9f 21 29 1e 4c d8 1e 3d | 08 40 81 d9 00 3d 83 80 |.!).L..=|.@...=..|
|00004440| 5c 66 08 41 10 81 d7 00 | 20 88 81 d8 00 0e 3d 9f |\f.A....| .....=.|
|00004450| 21 29 1e d9 0e 4c 40 81 | a2 00 3d 85 9b 5c 66 0e |!)...L@.|..=..\f.|
|00004460| d9 40 81 a2 00 3d 1e da | 08 40 f1 3d 83 a7 5c 66 |.@...=..|.@.=..\f|
|00004470| 08 41 10 0d 81 db 00 3d | 83 b7 5c 66 0e d9 0e 4c |.A.....=|..\f...L|
|00004480| 16 d9 16 4c 0e da 83 c7 | 5c 66 81 a6 00 0e 4c 41 |...L....|\f....LA|
|00004490| 40 42 82 cd 5c 66 81 5f | 00 0e 4c 38 0e da 83 d9 |@B..\f._|..L8....|
|000044a0| 5c 66 0e d9 41 40 82 e0 | 5c 66 81 5f 00 0e d9 38 |\f..A@..|\f._...8|
|000044b0| 43 42 1e dc 81 dd 00 0e | dc 81 de 00 5c 22 83 1a |CB......|....\"..|
|000044c0| 0d dd 20 89 1e 43 43 0e | a3 42 16 a3 81 70 00 81 |.. ..CC.|.B...p..|
|000044d0| 4e 00 81 54 00 0e 43 0e | d6 45 81 df 00 0e 43 81 |N..T..C.|.E....C.|
|000044e0| de 00 0e dc 23 23 16 dc | 29 82 27 0d 81 70 00 81 |....##..|).'..p..|
|000044f0| 4e 00 0e d6 0e dc 23 16 | dc 0e da 83 38 0d 81 a6 |N.....#.|....8...|
|00004500| 00 0e dc 81 a2 00 45 82 | 3a 0d 0e dc 0e 3d 42 16 |......E.|:....=B.|
|00004510| 3d 2d 82 cc 0d 0d 81 e0 | 00 3e 83 81 0d d8 1e e1 |=-......|.>......|
|00004520| 08 40 3a 84 5a 0d c6 81 | e2 00 21 88 08 40 3a 83 |.@:.Z...|..!..@:.|
|00004530| 6d 0d 08 89 41 10 40 0e | e1 42 16 e1 82 5a 0d 81 |m...A.@.|.B...Z..|
|00004540| a6 00 81 a2 00 0e e1 42 | 9f 42 0e 3d 42 16 3d 29 |.......B|.B.=B.=)|
|00004550| 82 cc 0d 0d cf 3d 83 b0 | 0d 0e d0 84 90 0d dd 20 |.....=..|....... |
|00004560| 16 d0 0e d4 84 99 0d dd | 20 16 d4 81 54 00 0e d4 |........| ...T...|
|00004570| 08 89 41 10 40 0e d0 d8 | af 05 0e 3d 42 16 3d 82 |..A.@...|...=B.=.|
|00004580| cc 0d 0d 39 85 ba 0d 0d | 81 e3 00 4e 89 1e a0 84 |...9....|...N....|
|00004590| c7 0d c6 81 e4 00 0d 5c | 22 88 0e a0 20 88 29 08 |.......\|"... .).|
|000045a0| 40 81 4d 00 3d 85 dc 0d | 08 41 10 81 d7 00 20 2b |@.M.=...|.A.... +|
|000045b0| 87 22 20 5b 61 72 67 73 | 20 28 68 61 73 68 2d 6b |." [args| (hash-k|
|000045c0| 65 79 20 68 61 73 68 2d | 6b 65 79 73 20 68 61 73 |ey hash-|keys has|
|000045d0| 68 2d 76 61 6c 75 65 20 | 68 61 73 68 2d 76 61 6c |h-value |hash-val|
|000045e0| 75 65 73 29 20 28 6b 65 | 79 2d 63 6f 64 65 20 6b |ues) (ke|y-code k|
|000045f0| 65 79 2d 63 6f 64 65 73 | 20 6b 65 79 2d 73 65 71 |ey-codes| key-seq|
|00004600| 20 6b 65 79 2d 73 65 71 | 73 20 6b 65 79 2d 62 69 | key-seq|s key-bi|
|00004610| 6e 64 69 6e 67 20 6b 65 | 79 2d 62 69 6e 64 69 6e |nding ke|y-bindin|
|00004620| 67 73 29 20 6b 65 79 2d | 74 79 70 65 73 20 68 61 |gs) key-|types ha|
|00004630| 73 68 2d 74 79 70 65 73 | 20 77 6f 72 64 20 65 72 |sh-types| word er|
|00004640| 72 6f 72 20 22 4d 61 6c | 66 6f 72 6d 65 64 20 60 |ror "Mal|formed `|
|00004650| 6c 6f 6f 70 27 20 6d 61 | 63 72 6f 22 20 6e 61 6d |loop' ma|cro" nam|
|00004660| 65 64 20 6c 6f 6f 70 2d | 6e 61 6d 65 20 69 6e 69 |ed loop-|name ini|
|00004670| 74 69 61 6c 6c 79 20 28 | 64 6f 20 64 6f 69 6e 67 |tially (|do doing|
|00004680| 29 20 22 53 79 6e 74 61 | 78 20 65 72 72 6f 72 20 |) "Synta|x error |
|00004690| 6f 6e 20 60 69 6e 69 74 | 69 61 6c 6c 79 27 20 63 |on `init|ially' c|
|000046a0| 6c 61 75 73 65 22 20 6c | 6f 6f 70 2d 69 6e 69 74 |lause" l|oop-init|
|000046b0| 69 61 6c 6c 79 20 66 69 | 6e 61 6c 6c 79 20 72 65 |ially fi|nally re|
|000046c0| 74 75 72 6e 20 28 71 75 | 6f 74 65 20 6e 69 6c 29 |turn (qu|ote nil)|
|000046d0| 20 6c 6f 6f 70 2d 72 65 | 73 75 6c 74 2d 65 78 70 | loop-re|sult-exp|
|000046e0| 6c 69 63 69 74 20 28 64 | 6f 20 64 6f 69 6e 67 29 |licit (d|o doing)|
|000046f0| 20 22 53 79 6e 74 61 78 | 20 65 72 72 6f 72 20 6f | "Syntax| error o|
|00004700| 6e 20 60 66 69 6e 61 6c | 6c 79 27 20 63 6c 61 75 |n `final|ly' clau|
|00004710| 73 65 22 20 63 61 61 72 | 20 28 71 75 6f 74 65 20 |se" caar| (quote |
|00004720| 6e 69 6c 29 20 6c 6f 6f | 70 2d 66 69 6e 61 6c 6c |nil) loo|p-finall|
|00004730| 79 20 28 66 6f 72 20 61 | 73 29 20 6e 69 6c 20 61 |y (for a|s) nil a|
|00004740| 6e 64 73 20 6c 6f 6f 70 | 2d 66 6f 72 2d 73 74 65 |nds loop|-for-ste|
|00004750| 70 73 20 6c 6f 6f 70 2d | 66 6f 72 2d 73 65 74 73 |ps loop-|for-sets|
|00004760| 20 6c 6f 6f 70 2d 66 6f | 72 2d 62 69 6e 64 69 6e | loop-fo|r-bindin|
|00004770| 67 73 20 67 65 6e 73 79 | 6d 20 76 61 72 20 62 65 |gs gensy|m var be|
|00004780| 69 6e 67 20 28 74 68 65 | 20 65 61 63 68 29 20 28 |ing (the| each) (|
|00004790| 62 75 66 66 65 72 20 62 | 75 66 66 65 72 73 29 20 |buffer b|uffers) |
|000047a0| 69 6e 20 28 62 75 66 66 | 65 72 2d 6c 69 73 74 29 |in (buff|er-list)|
|000047b0| 20 28 66 72 6f 6d 20 64 | 6f 77 6e 66 72 6f 6d 20 | (from d|ownfrom |
|000047c0| 75 70 66 72 6f 6d 20 74 | 6f 20 64 6f 77 6e 74 6f |upfrom t|o downto|
|000047d0| 20 75 70 74 6f 20 61 62 | 6f 76 65 20 62 65 6c 6f | upto ab|ove belo|
|000047e0| 77 20 62 79 29 20 28 64 | 6f 77 6e 74 6f 20 61 62 |w by) (d|ownto ab|
|000047f0| 6f 76 65 29 20 22 4d 75 | 73 74 20 73 70 65 63 69 |ove) "Mu|st speci|
|00004800| 66 79 20 60 66 72 6f 6d | 27 20 76 61 6c 75 65 20 |fy `from|' value |
|00004810| 66 6f 72 20 64 6f 77 6e | 77 61 72 64 20 6c 6f 6f |for down|ward loo|
|00004820| 70 22 20 64 6f 77 6e 66 | 72 6f 6d 20 63 61 64 64 |p" downf|rom cadd|
|00004830| 72 20 28 64 6f 77 6e 74 | 6f 20 61 62 6f 76 65 29 |r (downt|o above)|
|00004840| 20 64 6f 77 6e 20 28 61 | 62 6f 76 65 20 62 65 6c | down (a|bove bel|
|00004850| 6f 77 29 20 28 61 62 6f | 76 65 20 62 65 6c 6f 77 |ow) (abo|ve below|
|00004860| 29 20 65 78 63 6c 20 28 | 66 72 6f 6d 20 75 70 66 |) excl (|from upf|
|00004870| 72 6f 6d 20 64 6f 77 6e | 66 72 6f 6d 29 20 73 74 |rom down|from) st|
|00004880| 61 72 74 20 28 74 6f 20 | 75 70 74 6f 20 64 6f 77 |art (to |upto dow|
|00004890| 6e 74 6f 20 61 62 6f 76 | 65 20 62 65 6c 6f 77 29 |nto abov|e below)|
|000048a0| 20 65 6e 64 20 62 79 20 | 73 74 65 70 20 63 6c 2d | end by |step cl-|
|000048b0| 63 6f 6e 73 74 2d 65 78 | 70 72 2d 70 20 65 6e 64 |const-ex|pr-p end|
|000048c0| 2d 76 61 72 20 73 74 65 | 70 2d 76 61 72 20 30 20 |-var ste|p-var 0 |
|000048d0| 22 4c 6f 6f 70 20 60 62 | 79 27 20 76 61 6c 75 65 |"Loop `b|y' value|
|000048e0| 20 69 73 20 6e 6f 74 20 | 70 6f 73 69 74 69 76 65 | is not |positive|
|000048f0| 3a 20 25 73 22 20 3e 20 | 3e 3d 20 3c 20 3c 3d 20 |: %s" > |>= < <= |
|00004900| 6c 6f 6f 70 2d 62 6f 64 | 79 20 2d 20 2b 20 31 20 |loop-bod|y - + 1 |
|00004910| 28 69 6e 20 69 6e 2d 72 | 65 66 20 6f 6e 29 20 6f |(in in-r|ef on) o|
|00004920| 6e 20 74 65 6d 70 20 63 | 6f 6e 73 70 20 69 6e 2d |n temp c|onsp in-|
|00004930| 72 65 66 20 63 61 72 20 | 6c 6f 6f 70 2d 73 79 6d |ref car |loop-sym|
|00004940| 62 6f 6c 2d 6d 61 63 73 | 20 28 71 75 6f 74 65 20 |bol-macs| (quote |
|00004950| 66 75 6e 63 74 69 6f 6e | 20 66 75 6e 63 74 69 6f |function| functio|
|00004960| 6e 2a 29 20 66 75 6e 63 | 61 6c 6c 20 63 64 72 20 |n*) func|all cdr |
|00004970| 3d 20 74 68 65 6e 20 61 | 6e 64 20 69 66 20 6c 6f |= then a|nd if lo|
|00004980| 6f 70 2d 66 69 72 73 74 | 2d 66 6c 61 67 20 28 61 |op-first|-flag (a|
|00004990| 63 72 6f 73 73 20 61 63 | 72 6f 73 73 2d 72 65 66 |cross ac|ross-ref|
|000049a0| 29 20 74 65 6d 70 2d 69 | 64 78 20 74 65 6d 70 2d |) temp-i|dx temp-|
|000049b0| 76 65 63 20 2d 31 20 73 | 65 74 71 20 31 2b 20 6c |vec -1 s|etq 1+ l|
|000049c0| 65 6e 67 74 68 20 61 63 | 72 6f 73 73 2d 72 65 66 |ength ac|ross-ref|
|000049d0| 20 61 72 65 66 20 28 65 | 6c 65 6d 65 6e 74 20 65 | aref (e|lement e|
|000049e0| 6c 65 6d 65 6e 74 73 29 | 20 28 69 6e 2d 72 65 66 |lements)| (in-ref|
|000049f0| 20 6f 66 2d 72 65 66 29 | 20 28 69 6e 20 6f 66 29 | of-ref)| (in of)|
|00004a00| 20 22 45 78 70 65 63 74 | 65 64 20 60 6f 66 27 22 | "Expect|ed `of'"|
|00004a10| 20 75 73 69 6e 67 20 63 | 61 64 72 20 32 20 63 61 | using c|adr 2 ca|
|00004a20| 61 64 72 20 69 6e 64 65 | 78 20 22 42 61 64 20 60 |adr inde|x "Bad `|
|00004a30| 75 73 69 6e 67 27 20 63 | 6c 61 75 73 65 22 20 74 |using' c|lause" t|
|00004a40| 65 6d 70 2d 73 65 71 20 | 73 65 71 20 72 65 66 20 |emp-seq |seq ref |
|00004a50| 74 65 6d 70 2d 6c 65 6e | 20 65 6c 74 20 6f 72 20 |temp-len| elt or |
|00004a60| 70 6f 70 20 28 69 6e 20 | 6f 66 29 20 74 61 62 6c |pop (in |of) tabl|
|00004a70| 65 20 6f 74 68 65 72 20 | 28 68 61 73 68 2d 76 61 |e other |(hash-va|
|00004a80| 6c 75 65 20 68 61 73 68 | 2d 76 61 6c 75 65 73 29 |lue hash|-values)|
|00004a90| 20 6d 61 70 68 61 73 68 | 20 66 75 6e 63 74 69 6f | maphash| functio|
|00004aa0| 6e 20 6c 69 73 74 2a 20 | 6c 61 6d 62 64 61 20 2d |n list* |lambda -|
|00004ab0| 2d 63 6c 2d 6d 61 70 20 | 6c 6f 6f 70 2d 6d 61 70 |-cl-map |loop-map|
|00004ac0| 2d 66 6f 72 6d 20 28 73 | 79 6d 62 6f 6c 20 70 72 |-form (s|ymbol pr|
|00004ad0| 65 73 65 6e 74 2d 73 79 | 6d 62 6f 6c 20 65 78 74 |esent-sy|mbol ext|
|00004ae0| 65 72 6e 61 6c 2d 73 79 | 6d 62 6f 6c 20 73 79 6d |ernal-sy|mbol sym|
|00004af0| 62 6f 6c 73 20 70 72 65 | 73 65 6e 74 2d 73 79 6d |bols pre|sent-sym|
|00004b00| 62 6f 6c 73 20 65 78 74 | 65 72 6e 61 6c 2d 73 79 |bols ext|ernal-sy|
|00004b10| 6d 62 6f 6c 73 29 20 28 | 69 6e 20 6f 66 29 20 6f |mbols) (|in of) o|
|00004b20| 62 20 6d 61 70 61 74 6f | 6d 73 20 28 6f 76 65 72 |b mapato|ms (over|
|00004b30| 6c 61 79 20 6f 76 65 72 | 6c 61 79 73 20 65 78 74 |lay over|lays ext|
|00004b40| 65 6e 74 20 65 78 74 65 | 6e 74 73 29 20 74 6f 20 |ent exte|nts) to |
|00004b50| 66 72 6f 6d 20 62 75 66 | 20 28 69 6e 20 6f 66 20 |from buf| (in of |
|00004b60| 66 72 6f 6d 20 74 6f 29 | 20 63 6c 2d 6d 61 70 2d |from to)| cl-map-|
|00004b70| 65 78 74 65 6e 74 73 20 | 28 70 72 6f 67 6e 20 2e |extents |(progn .|
|00004b80| 20 2d 2d 63 6c 2d 6d 61 | 70 29 20 28 69 6e 74 65 | --cl-ma|p) (inte|
|00004b90| 72 76 61 6c 20 69 6e 74 | 65 72 76 61 6c 73 29 20 |rval int|ervals) |
|00004ba0| 76 61 72 32 20 76 61 72 | 31 20 70 72 6f 70 20 28 |var2 var|1 prop (|
|00004bb0| 69 6e 20 6f 66 20 70 72 | 6f 70 65 72 74 79 20 66 |in of pr|operty f|
|00004bc0| 72 6f 6d 20 74 6f 29 20 | 70 72 6f 70 65 72 74 79 |rom to) |property|
|00004bd0| 20 63 6f 6e 73 20 63 6c | 2d 6d 61 70 2d 69 6e 74 | cons cl|-map-int|
|00004be0| 65 72 76 61 6c 73 20 28 | 70 72 6f 67 6e 20 2e 20 |ervals (|progn . |
|00004bf0| 2d 2d 63 6c 2d 6d 61 70 | 29 20 28 69 6e 20 6f 66 |--cl-map|) (in of|
|00004c00| 29 20 6d 61 70 20 28 6b | 65 79 2d 62 69 6e 64 69 |) map (k|ey-bindi|
|00004c10| 6e 67 20 6b 65 79 2d 62 | 69 6e 64 69 6e 67 73 29 |ng key-b|indings)|
|00004c20| 20 28 6b 65 79 2d 73 65 | 71 20 6b 65 79 2d 73 65 | (key-se|q key-se|
|00004c30| 71 73 29 20 63 6c 2d 6d | 61 70 2d 6b 65 79 6d 61 |qs) cl-m|ap-keyma|
|00004c40| 70 2d 72 65 63 75 72 73 | 69 76 65 6c 79 20 63 6c |p-recurs|ively cl|
|00004c50| 2d 6d 61 70 2d 6b 65 79 | 6d 61 70 20 28 66 72 61 |-map-key|map (fra|
|00004c60| 6d 65 20 66 72 61 6d 65 | 73 20 73 63 72 65 65 6e |me frame|s screen|
|00004c70| 20 73 63 72 65 65 6e 73 | 29 20 63 6c 2d 65 6d 61 | screens|) cl-ema|
|00004c80| 63 73 2d 74 79 70 65 20 | 6c 75 63 69 64 20 28 73 |cs-type |lucid (s|
|00004c90| 65 6c 65 63 74 65 64 2d | 73 63 72 65 65 6e 29 20 |elected-|screen) |
|00004ca0| 28 73 65 6c 65 63 74 65 | 64 2d 66 72 61 6d 65 29 |(selecte|d-frame)|
|00004cb0| 20 70 72 6f 67 31 20 6e | 6f 74 20 65 71 20 6e 65 | prog1 n|ot eq ne|
|00004cc0| 78 74 2d 73 63 72 65 65 | 6e 20 6e 65 78 74 2d 66 |xt-scree|n next-f|
|00004cd0| 72 61 6d 65 20 28 77 69 | 6e 64 6f 77 20 77 69 6e |rame (wi|ndow win|
|00004ce0| 64 6f 77 73 29 20 28 69 | 6e 20 6f 66 29 20 73 63 |dows) (i|n of) sc|
|00004cf0| 72 20 73 63 72 65 65 6e | 2d 73 65 6c 65 63 74 65 |r screen|-selecte|
|00004d00| 64 2d 77 69 6e 64 6f 77 | 20 66 72 61 6d 65 2d 73 |d-window| frame-s|
|00004d10| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 28 |elected-|window (|
|00004d20| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 29 |selected|-window)|
|00004d30| 20 6e 65 78 74 2d 77 69 | 6e 64 6f 77 20 63 6c 2d | next-wi|ndow cl-|
|00004d40| 6c 6f 6f 70 2d 66 6f 72 | 2d 68 61 6e 64 6c 65 72 |loop-for|-handler|
|00004d50| 20 68 61 6e 64 6c 65 72 | 20 22 45 78 70 65 63 74 | handler| "Expect|
|00004d60| 65 64 20 61 20 60 66 6f | 72 27 20 70 72 65 70 6f |ed a `fo|r' prepo|
|00004d70| 73 69 74 69 6f 6e 2c 20 | 66 6f 75 6e 64 20 25 73 |sition, |found %s|
|00004d80| 22 20 74 20 6c 6f 6f 70 | 2d 62 69 6e 64 69 6e 67 |" t loop|-binding|
|00004d90| 73 20 6d 61 70 63 61 72 | 20 6c 69 73 74 20 70 72 |s mapcar| list pr|
|00004da0| 6f 67 6e 20 63 6c 2d 6c | 6f 6f 70 2d 6c 65 74 20 |ogn cl-l|oop-let |
|00004db0| 70 73 65 74 71 20 61 70 | 70 6c 79 20 61 70 70 65 |psetq ap|ply appe|
|00004dc0| 6e 64 20 6c 6f 6f 70 2d | 73 74 65 70 73 20 72 65 |nd loop-|steps re|
|00004dd0| 70 65 61 74 20 31 2d 20 | 63 6f 6c 6c 65 63 74 20 |peat 1- |collect |
|00004de0| 63 6c 2d 6c 6f 6f 70 2d | 68 61 6e 64 6c 65 2d 61 |cl-loop-|handle-a|
|00004df0| 63 63 75 6d 20 6e 72 65 | 76 65 72 73 65 20 77 68 |ccum nre|verse wh|
|00004e00| 61 74 20 6c 6f 6f 70 2d | 61 63 63 75 6d 2d 76 61 |at loop-|accum-va|
|00004e10| 72 20 70 75 73 68 20 6e | 63 6f 6e 63 20 28 6e 63 |r push n|conc (nc|
|00004e20| 6f 6e 63 20 6e 63 6f 6e | 63 69 6e 67 20 61 70 70 |onc ncon|cing app|
|00004e30| 65 6e 64 20 61 70 70 65 | 6e 64 69 6e 67 29 20 28 |end appe|nding) (|
|00004e40| 6e 63 6f 6e 63 20 6e 63 | 6f 6e 63 69 6e 67 29 20 |nconc nc|oncing) |
|00004e50| 72 65 76 65 72 73 65 20 | 28 6e 63 6f 6e 63 20 6e |reverse |(nconc n|
|00004e60| 63 6f 6e 63 69 6e 67 29 | 20 28 63 6f 6e 63 61 74 |concing)| (concat|
|00004e70| 20 63 6f 6e 63 61 74 69 | 6e 67 29 20 22 22 20 63 | concati|ng) "" c|
|00004e80| 61 6c 6c 66 20 63 6f 6e | 63 61 74 20 28 76 63 6f |allf con|cat (vco|
|00004e90| 6e 63 61 74 20 76 63 6f | 6e 63 61 74 69 6e 67 29 |ncat vco|ncating)|
|00004ea0| 20 5b 5d 20 76 63 6f 6e | 63 61 74 20 28 73 75 6d | [] vcon|cat (sum|
|00004eb0| 20 73 75 6d 6d 69 6e 67 | 29 20 69 6e 63 66 20 28 | summing|) incf (|
|00004ec0| 63 6f 75 6e 74 20 63 6f | 75 6e 74 69 6e 67 29 20 |count co|unting) |
|00004ed0| 28 6d 69 6e 69 6d 69 7a | 65 20 6d 69 6e 69 6d 69 |(minimiz|e minimi|
|00004ee0| 7a 69 6e 67 20 6d 61 78 | 69 6d 69 7a 65 20 6d 61 |zing max|imize ma|
|00004ef0| 78 69 6d 69 7a 69 6e 67 | 29 20 63 6c 2d 73 69 6d |ximizing|) cl-sim|
|00004f00| 70 6c 65 2d 65 78 70 72 | 2d 70 20 69 6e 74 65 72 |ple-expr|-p inter|
|00004f10| 6e 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 33 20 |n symbol|-name 3 |
|00004f20| 66 75 6e 63 20 73 65 74 | 20 6c 65 74 20 77 69 74 |func set| let wit|
|00004f30| 68 20 62 69 6e 64 69 6e | 67 73 20 77 68 69 6c 65 |h bindin|gs while|
|00004f40| 20 75 6e 74 69 6c 20 61 | 6c 77 61 79 73 20 6c 6f | until a|lways lo|
|00004f50| 6f 70 2d 66 69 6e 69 73 | 68 2d 66 6c 61 67 20 6c |op-finis|h-flag l|
|00004f60| 6f 6f 70 2d 72 65 73 75 | 6c 74 20 6e 65 76 65 72 |oop-resu|lt never|
|00004f70| 20 74 68 65 72 65 69 73 | 20 6c 6f 6f 70 2d 72 65 | thereis| loop-re|
|00004f80| 73 75 6c 74 2d 76 61 72 | 20 28 69 66 20 77 68 65 |sult-var| (if whe|
|00004f90| 6e 20 75 6e 6c 65 73 73 | 29 20 63 6f 6e 64 20 63 |n unless|) cond c|
|00004fa0| 6c 2d 70 61 72 73 65 2d | 6c 6f 6f 70 2d 63 6c 61 |l-parse-|loop-cla|
|00004fb0| 75 73 65 20 63 6c 2d 6c | 6f 6f 70 2d 62 75 69 6c |use cl-l|oop-buil|
|00004fc0| 64 2d 61 6e 64 73 20 65 | 6c 73 65 20 73 69 6d 70 |d-ands e|lse simp|
|00004fd0| 6c 65 20 75 6e 6c 65 73 | 73 20 66 6f 72 6d 20 63 |le unles|s form c|
|00004fe0| 6c 2d 65 78 70 72 2d 63 | 6f 6e 74 61 69 6e 73 20 |l-expr-c|ontains |
|00004ff0| 69 74 20 73 75 62 73 74 | 20 28 64 6f 20 64 6f 69 |it subst| (do doi|
|00005000| 6e 67 29 20 62 6f 64 79 | 20 22 53 79 6e 74 61 78 |ng) body| "Syntax|
|00005010| 20 65 72 72 6f 72 20 6f | 6e 20 60 64 6f 27 20 63 | error o|n `do' c|
|00005020| 6c 61 75 73 65 22 20 63 | 6c 2d 6c 6f 6f 70 2d 68 |lause" c|l-loop-h|
|00005030| 61 6e 64 6c 65 72 20 22 | 45 78 70 65 63 74 65 64 |andler "|Expected|
|00005040| 20 61 20 6c 6f 6f 70 20 | 6b 65 79 77 6f 72 64 2c | a loop |keyword,|
|00005050| 20 66 6f 75 6e 64 20 25 | 73 22 5d 20 39 5d 20 63 | found %|s"] 9] c|
|00005060| 6c 2d 6c 6f 6f 70 2d 6c | 65 74 20 23 5b 28 73 70 |l-loop-l|et #[(sp|
|00005070| 65 63 73 20 62 6f 64 79 | 20 70 61 72 29 20 22 08 |ecs body| par) ".|
|00005080| c1 89 1a 1b 89 1c 83 1e | 00 5c 66 40 a2 39 84 17 |........|.\f@.9..|
|00005090| 00 c5 5c 66 21 84 1e 00 | 5c 66 41 89 14 84 5c 6e |..\f!...|\fA...\n|
|000050a0| 00 0e 06 83 53 00 5c 66 | 83 53 00 c1 16 06 08 89 |....S.\f|.S......|
|000050b0| 14 83 53 00 c7 c5 5c 66 | 21 21 84 4c 00 c8 20 89 |..S...\f|!!.L.. .|
|000050c0| 1e 09 c5 5c 66 21 44 0b | 42 13 ca 5c 66 21 0e 09 |...\f!D.|B..\f!..|
|000050d0| a0 88 29 5c 66 41 89 14 | 84 30 00 08 83 d8 00 08 |..)\fA..|.0......|
|000050e0| 40 3a 83 cd 00 cb 08 21 | 3c 83 cd 00 cb 08 21 1e |@:.....!|<.....!.|
|000050f0| 5c 66 c1 1e 0d ce 08 89 | 41 10 40 21 1e 0f 0e 5c |\f......|A.@!...\|
|00005100| 66 0e 10 9e 86 91 00 0e | 5c 66 d1 0e 5c 66 d2 5c |f.......|\f..\f.\|
|00005110| 22 86 89 00 c8 20 42 0e | 10 42 89 16 10 40 41 89 |".... B.|.B...@A.|
|00005120| 1e 09 0e 0f 44 5c 6e 42 | 12 0e 5c 66 3a 83 c3 00 |....D\nB|..\f:...|
|00005130| 0e 5c 66 89 41 16 5c 66 | 40 0e 0f 85 ba 00 0e 5c |.\f.A.\f|@......\|
|00005140| 66 83 b6 00 d3 82 b7 00 | d4 0e 09 44 44 0e 0d 42 |f.......|...DD..B|
|00005150| 16 0d 82 9b 00 0e 0d 9f | 08 a4 10 2c 82 53 00 08 |........|...,.S..|
|00005160| 89 41 10 40 5c 6e 42 12 | 82 53 00 0e 15 d6 3d 83 |.A.@\nB.|.S....=.|
|00005170| 04 01 0e 06 83 e8 00 d7 | 82 e9 00 d6 d8 d9 5c 6e |........|......\n|
|00005180| 9f 5c 22 42 1e 1a 0b 83 | fe 00 db 0b 9f 0e 1a 45 |.\"B....|.......E|
|00005190| 82 00 01 0e 1a 29 82 17 | 01 dc 0e 06 83 0e 01 dd |.....)..|........|
|000051a0| 82 0f 01 db 0b 9f 5c 6e | 9f a4 0e 15 23 2b 87 22 |......\n|....#+."|
|000051b0| 20 5b 73 70 65 63 73 20 | 6e 69 6c 20 6e 65 77 20 | [specs |nil new |
|000051c0| 74 65 6d 70 73 20 70 20 | 63 61 64 61 72 20 70 61 |temps p |cadar pa|
|000051d0| 72 20 63 6c 2d 63 6f 6e | 73 74 2d 65 78 70 72 2d |r cl-con|st-expr-|
|000051e0| 70 20 67 65 6e 73 79 6d | 20 74 65 6d 70 20 63 64 |p gensym| temp cd|
|000051f0| 61 72 20 63 61 61 72 20 | 73 70 65 63 20 6e 73 70 |ar caar |spec nsp|
|00005200| 65 63 73 20 63 61 64 72 | 20 65 78 70 72 20 6c 6f |ecs cadr| expr lo|
|00005210| 6f 70 2d 64 65 73 74 72 | 2d 74 65 6d 70 73 20 6c |op-destr|-temps l|
|00005220| 61 73 74 20 30 20 70 6f | 70 20 63 61 72 20 62 6f |ast 0 po|p car bo|
|00005230| 64 79 20 73 65 74 71 20 | 70 73 65 74 71 20 61 70 |dy setq |psetq ap|
|00005240| 70 6c 79 20 6e 63 6f 6e | 63 20 73 65 74 20 6c 65 |ply ncon|c set le|
|00005250| 74 2a 20 6c 69 73 74 2a | 20 6c 65 74 5d 20 35 5d |t* list*| let] 5]|
|00005260| 20 63 6c 2d 6c 6f 6f 70 | 2d 68 61 6e 64 6c 65 2d | cl-loop|-handle-|
|00005270| 61 63 63 75 6d 20 23 5b | 28 64 65 66 20 26 6f 70 |accum #[|(def &op|
|00005280| 74 69 6f 6e 61 6c 20 66 | 75 6e 63 29 20 22 08 40 |tional f|unc) ".@|
|00005290| c1 3d 83 23 00 08 41 40 | 08 41 41 10 89 1a 0b 3e |.=.#..A@|.AA....>|
|000052a0| 84 20 00 5c 6e 5c 66 44 | 43 0d 42 15 5c 6e 0b 42 |. .\n\fD|C.B.\n.B|
|000052b0| 13 5c 6e 29 87 0e 06 86 | 46 00 c7 20 89 16 06 5c |.\n)....|F.. ...\|
|000052c0| 66 44 43 0d 42 15 0e 08 | 83 40 00 0e 08 0e 06 44 |fDC.B...|.@.....D|
|000052d0| 82 42 00 0e 06 16 09 0e | 06 87 22 20 5b 61 72 67 |.B......|.." [arg|
|000052e0| 73 20 69 6e 74 6f 20 76 | 61 72 20 6c 6f 6f 70 2d |s into v|ar loop-|
|000052f0| 61 63 63 75 6d 2d 76 61 | 72 73 20 64 65 66 20 6c |accum-va|rs def l|
|00005300| 6f 6f 70 2d 62 69 6e 64 | 69 6e 67 73 20 6c 6f 6f |oop-bind|ings loo|
|00005310| 70 2d 61 63 63 75 6d 2d | 76 61 72 20 67 65 6e 73 |p-accum-|var gens|
|00005320| 79 6d 20 66 75 6e 63 20 | 6c 6f 6f 70 2d 72 65 73 |ym func |loop-res|
|00005330| 75 6c 74 5d 20 33 5d 20 | 63 6c 2d 6c 6f 6f 70 2d |ult] 3] |cl-loop-|
|00005340| 62 75 69 6c 64 2d 61 6e | 64 73 20 23 5b 28 63 6c |build-an|ds #[(cl|
|00005350| 61 75 73 65 73 29 20 22 | c0 89 19 1a 0b 83 57 00 |auses) "|......W.|
|00005360| 0b 40 a2 c4 3d 83 4c 00 | c5 0b 40 21 40 c6 3d 83 |.@..=.L.|..@!@.=.|
|00005370| 4c 00 0b 41 83 40 00 c7 | 0b 40 21 c8 0b 21 a2 c4 |L..A.@..|.@!..!..|
|00005380| 3d 83 32 00 c9 0b 21 82 | 36 00 c8 0b 21 43 a4 ca |=.2...!.|6...!C..|
|00005390| 0b 21 42 89 13 82 05 00 | c7 0b 89 41 13 40 21 41 |.!B.....|...A.@!A|
|000053a0| 11 82 04 00 0b 89 41 13 | 40 5c 6e 42 12 82 04 00 |......A.|@\nB....|
|000053b0| 5c 6e 9f 86 5e 00 c6 43 | 89 12 41 83 6a 00 cb 5c |\n..^..C|..A.j..\|
|000053c0| 6e 42 82 6c 00 5c 6e 40 | 09 89 83 7e 00 cc 5c 6e |nB.l.\n@|...~..\n|
|000053d0| c4 cc 09 cd 5c 22 42 43 | 5c 22 82 7f 00 5c 6e 89 |....\"BC|\"...\n.|
|000053e0| 1e 0e 41 83 8d 00 cb 0e | 0e 42 82 90 00 0e 0e 40 |..A.....|.B.....@|
|000053f0| 29 45 2a 87 22 20 5b 6e | 69 6c 20 62 6f 64 79 20 |)E*." [n|il body |
|00005400| 61 6e 64 73 20 63 6c 61 | 75 73 65 73 20 70 72 6f |ands cla|uses pro|
|00005410| 67 6e 20 6c 61 73 74 20 | 74 20 62 75 74 6c 61 73 |gn last |t butlas|
|00005420| 74 20 63 61 64 72 20 63 | 64 61 64 72 20 63 64 64 |t cadr c|dadr cdd|
|00005430| 72 20 61 6e 64 20 61 70 | 70 65 6e 64 20 28 74 29 |r and ap|pend (t)|
|00005440| 20 66 75 6c 6c 5d 20 39 | 5d 5d 20 33 29 0a 28 64 | full] 9|]] 3).(d|
|00005450| 65 66 61 6c 69 61 73 20 | 27 64 6f 20 27 28 6d 61 |efalias |'do '(ma|
|00005460| 63 72 6f 20 2e 20 23 5b | 28 73 74 65 70 73 20 65 |cro . #[|(steps e|
|00005470| 6e 64 74 65 73 74 20 26 | 72 65 73 74 20 62 6f 64 |ndtest &|rest bod|
|00005480| 79 29 20 22 c0 09 5c 6e | 0b c4 24 87 22 20 5b 63 |y) "..\n|..$." [c|
|00005490| 6c 2d 65 78 70 61 6e 64 | 2d 64 6f 2d 6c 6f 6f 70 |l-expand|-do-loop|
|000054a0| 20 73 74 65 70 73 20 65 | 6e 64 74 65 73 74 20 62 | steps e|ndtest b|
|000054b0| 6f 64 79 20 6e 69 6c 5d | 20 35 20 22 5c 0a 54 68 |ody nil]| 5 "\.Th|
|000054c0| 65 20 43 6f 6d 6d 6f 6e | 20 4c 69 73 70 20 60 64 |e Common| Lisp `d|
|000054d0| 6f 27 20 6c 6f 6f 70 2e | 0a 46 6f 72 6d 61 74 20 |o' loop.|.Format |
|000054e0| 69 73 3a 20 28 64 6f 20 | 28 28 56 41 52 20 49 4e |is: (do |((VAR IN|
|000054f0| 49 54 20 5b 53 54 45 50 | 5d 29 2e 2e 2e 29 20 28 |IT [STEP|])...) (|
|00005500| 45 4e 44 2d 54 45 53 54 | 20 5b 52 45 53 55 4c 54 |END-TEST| [RESULT|
|00005510| 2e 2e 2e 5d 29 20 42 4f | 44 59 2e 2e 2e 29 22 5d |...]) BO|DY...)"]|
|00005520| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 6f |)).(defa|lias 'do|
|00005530| 2a 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 73 |* '(macr|o . #[(s|
|00005540| 74 65 70 73 20 65 6e 64 | 74 65 73 74 20 26 72 65 |teps end|test &re|
|00005550| 73 74 20 62 6f 64 79 29 | 20 22 c0 09 5c 6e 0b c4 |st body)| "..\n..|
|00005560| 24 87 22 20 5b 63 6c 2d | 65 78 70 61 6e 64 2d 64 |$." [cl-|expand-d|
|00005570| 6f 2d 6c 6f 6f 70 20 73 | 74 65 70 73 20 65 6e 64 |o-loop s|teps end|
|00005580| 74 65 73 74 20 62 6f 64 | 79 20 74 5d 20 35 20 22 |test bod|y t] 5 "|
|00005590| 5c 0a 54 68 65 20 43 6f | 6d 6d 6f 6e 20 4c 69 73 |\.The Co|mmon Lis|
|000055a0| 70 20 60 64 6f 2a 27 20 | 6c 6f 6f 70 2e 0a 46 6f |p `do*' |loop..Fo|
|000055b0| 72 6d 61 74 20 69 73 3a | 20 28 64 6f 2a 20 28 28 |rmat is:| (do* ((|
|000055c0| 56 41 52 20 49 4e 49 54 | 20 5b 53 54 45 50 5d 29 |VAR INIT| [STEP])|
|000055d0| 2e 2e 2e 29 20 28 45 4e | 44 2d 54 45 53 54 20 5b |...) (EN|D-TEST [|
|000055e0| 52 45 53 55 4c 54 2e 2e | 2e 5d 29 20 42 4f 44 59 |RESULT..|.]) BODY|
|000055f0| 2e 2e 2e 29 22 5d 29 29 | 0a 28 64 65 66 61 6c 69 |...)"]))|.(defali|
|00005600| 61 73 20 28 71 75 6f 74 | 65 20 63 6c 2d 65 78 70 |as (quot|e cl-exp|
|00005610| 61 6e 64 2d 64 6f 2d 6c | 6f 6f 70 29 20 23 5b 28 |and-do-l|oop) #[(|
|00005620| 73 74 65 70 73 20 65 6e | 64 74 65 73 74 20 62 6f |steps en|dtest bo|
|00005630| 64 79 20 73 74 61 72 29 | 20 22 c0 c1 c2 0b 83 0b |dy star)| "......|
|00005640| 00 c4 82 5c 66 00 c5 c6 | c7 0e 08 5c 22 c2 c9 ca |...\f...|...\"...|
|00005650| 0e 0b 40 44 cc 0e 0d c6 | ce 0e 08 5c 22 1e 0f d0 |..@D....|...\"...|
|00005660| c1 0e 0f 5c 22 89 16 0f | 85 43 00 0b 84 37 00 0e |...\"...|.C...7..|
|00005670| 0f 41 84 3b 00 d1 82 3c | 00 d2 d3 cc 0e 0f 5c 22 |.A.;...<|......\"|
|00005680| 42 43 29 5c 22 23 0e 0b | 41 86 4d 00 d4 24 45 87 |BC)\"#..|A.M..$E.|
|00005690| 22 20 5b 62 6c 6f 63 6b | 20 6e 69 6c 20 6c 69 73 |" [block| nil lis|
|000056a0| 74 2a 20 73 74 61 72 20 | 6c 65 74 2a 20 6c 65 74 |t* star |let* let|
|000056b0| 20 6d 61 70 63 61 72 20 | 23 5b 28 63 29 20 22 08 | mapcar |#[(c) ".|
|000056c0| 3a 83 5c 66 00 08 40 08 | 41 40 44 87 08 87 22 20 |:.\f..@.|A@D..." |
|000056d0| 5b 63 5d 20 32 5d 20 73 | 74 65 70 73 20 77 68 69 |[c] 2] s|teps whi|
|000056e0| 6c 65 20 6e 6f 74 20 65 | 6e 64 74 65 73 74 20 61 |le not e|ndtest a|
|000056f0| 70 70 65 6e 64 20 62 6f | 64 79 20 23 5b 28 63 29 |ppend bo|dy #[(c)|
|00005700| 20 22 08 3a 85 11 00 08 | 41 41 85 11 00 08 40 c1 | ".:....|AA....@.|
|00005710| 08 38 44 87 22 20 5b 63 | 20 32 5d 20 33 5d 20 73 |.8D." [c| 2] 3] s|
|00005720| 65 74 73 20 64 65 6c 71 | 20 73 65 74 71 20 70 73 |ets delq| setq ps|
|00005730| 65 74 71 20 61 70 70 6c | 79 20 28 6e 69 6c 29 5d |etq appl|y (nil)]|
|00005740| 20 31 35 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 15]).(d|efalias |
|00005750| 27 64 6f 6c 69 73 74 20 | 27 28 6d 61 63 72 6f 20 |'dolist |'(macro |
|00005760| 2e 20 23 5b 28 73 70 65 | 63 20 26 72 65 73 74 20 |. #[(spe|c &rest |
|00005770| 62 6f 64 79 29 20 22 c0 | c1 21 1a c3 c4 c5 c6 5c |body) ".|.!.....\|
|00005780| 6e 0e 07 41 40 44 0e 07 | 40 44 c5 c8 5c 6e c9 0e |n..A@D..|@D..\n..|
|00005790| 07 40 ca 5c 6e 44 45 cb | 0e 5c 66 c9 5c 6e cd 5c |.@.\nDE.|.\f.\n.\|
|000057a0| 6e 44 45 43 5c 22 24 0e | 07 41 41 83 3e 00 c9 0e |nDEC\"$.|.AA.>...|
|000057b0| 07 40 c4 45 0e 07 41 41 | 42 82 3f 00 ce 24 45 29 |.@.E..AA|B.?..$E)|
|000057c0| 87 22 20 5b 67 65 6e 73 | 79 6d 20 22 2d 2d 64 6f |." [gens|ym "--do|
|000057d0| 6c 69 73 74 2d 74 65 6d | 70 2d 2d 22 20 74 65 6d |list-tem|p--" tem|
|000057e0| 70 20 62 6c 6f 63 6b 20 | 6e 69 6c 20 6c 69 73 74 |p block |nil list|
|000057f0| 2a 20 6c 65 74 20 73 70 | 65 63 20 77 68 69 6c 65 |* let sp|ec while|
|00005800| 20 73 65 74 71 20 63 61 | 72 20 61 70 70 65 6e 64 | setq ca|r append|
|00005810| 20 62 6f 64 79 20 63 64 | 72 20 28 6e 69 6c 29 5d | body cd|r (nil)]|
|00005820| 20 31 35 20 22 5c 0a 28 | 64 6f 6c 69 73 74 20 28 | 15 "\.(|dolist (|
|00005830| 56 41 52 20 4c 49 53 54 | 20 5b 52 45 53 55 4c 54 |VAR LIST| [RESULT|
|00005840| 5d 29 20 42 4f 44 59 2e | 2e 2e 29 3a 20 6c 6f 6f |]) BODY.|..): loo|
|00005850| 70 20 6f 76 65 72 20 61 | 20 6c 69 73 74 2e 0a 45 |p over a| list..E|
|00005860| 76 61 6c 75 61 74 65 20 | 42 4f 44 59 20 77 69 74 |valuate |BODY wit|
|00005870| 68 20 56 41 52 20 62 6f | 75 6e 64 20 74 6f 20 65 |h VAR bo|und to e|
|00005880| 61 63 68 20 60 63 61 72 | 27 20 66 72 6f 6d 20 4c |ach `car|' from L|
|00005890| 49 53 54 2c 20 69 6e 20 | 74 75 72 6e 2e 0a 54 68 |IST, in |turn..Th|
|000058a0| 65 6e 20 65 76 61 6c 75 | 61 74 65 20 52 45 53 55 |en evalu|ate RESU|
|000058b0| 4c 54 20 74 6f 20 67 65 | 74 20 72 65 74 75 72 6e |LT to ge|t return|
|000058c0| 20 76 61 6c 75 65 2c 20 | 64 65 66 61 75 6c 74 20 | value, |default |
|000058d0| 6e 69 6c 2e 22 5d 29 29 | 0a 28 64 65 66 61 6c 69 |nil."]))|.(defali|
|000058e0| 61 73 20 27 64 6f 74 69 | 6d 65 73 20 27 28 6d 61 |as 'doti|mes '(ma|
|000058f0| 63 72 6f 20 2e 20 23 5b | 28 73 70 65 63 20 26 72 |cro . #[|(spec &r|
|00005900| 65 73 74 20 62 6f 64 79 | 29 20 22 c0 c1 21 1a c3 |est body|) "..!..|
|00005910| c4 c5 c6 5c 6e 0e 07 41 | 40 44 0e 07 40 c8 44 44 |...\n..A|@D..@.DD|
|00005920| c5 c9 ca 0e 07 40 5c 6e | 45 cb 0e 5c 66 cd 0e 07 |.....@\n|E..\f...|
|00005930| 40 44 43 5c 22 23 0e 07 | 41 41 86 2f 00 ce 24 45 |@DC\"#..|AA./..$E|
|00005940| 29 87 22 20 5b 67 65 6e | 73 79 6d 20 22 2d 2d 64 |)." [gen|sym "--d|
|00005950| 6f 74 69 6d 65 73 2d 74 | 65 6d 70 2d 2d 22 20 74 |otimes-t|emp--" t|
|00005960| 65 6d 70 20 62 6c 6f 63 | 6b 20 6e 69 6c 20 6c 69 |emp bloc|k nil li|
|00005970| 73 74 2a 20 6c 65 74 20 | 73 70 65 63 20 30 20 77 |st* let |spec 0 w|
|00005980| 68 69 6c 65 20 3c 20 61 | 70 70 65 6e 64 20 62 6f |hile < a|ppend bo|
|00005990| 64 79 20 69 6e 63 66 20 | 28 6e 69 6c 29 5d 20 31 |dy incf |(nil)] 1|
|000059a0| 32 20 22 5c 0a 28 64 6f | 74 69 6d 65 73 20 28 56 |2 "\.(do|times (V|
|000059b0| 41 52 20 43 4f 55 4e 54 | 20 5b 52 45 53 55 4c 54 |AR COUNT| [RESULT|
|000059c0| 5d 29 20 42 4f 44 59 2e | 2e 2e 29 3a 20 6c 6f 6f |]) BODY.|..): loo|
|000059d0| 70 20 61 20 63 65 72 74 | 61 69 6e 20 6e 75 6d 62 |p a cert|ain numb|
|000059e0| 65 72 20 6f 66 20 74 69 | 6d 65 73 2e 0a 45 76 61 |er of ti|mes..Eva|
|000059f0| 6c 75 61 74 65 20 42 4f | 44 59 20 77 69 74 68 20 |luate BO|DY with |
|00005a00| 56 41 52 20 62 6f 75 6e | 64 20 74 6f 20 73 75 63 |VAR boun|d to suc|
|00005a10| 63 65 73 73 69 76 65 20 | 69 6e 74 65 67 65 72 73 |cessive |integers|
|00005a20| 20 66 72 6f 6d 20 30 2c | 20 69 6e 63 6c 75 73 69 | from 0,| inclusi|
|00005a30| 76 65 2c 0a 74 6f 20 43 | 4f 55 4e 54 2c 20 65 78 |ve,.to C|OUNT, ex|
|00005a40| 63 6c 75 73 69 76 65 2e | 20 20 54 68 65 6e 20 65 |clusive.|  Then e|
|00005a50| 76 61 6c 75 61 74 65 20 | 52 45 53 55 4c 54 20 74 |valuate |RESULT t|
|00005a60| 6f 20 67 65 74 20 72 65 | 74 75 72 6e 20 76 61 6c |o get re|turn val|
|00005a70| 75 65 2c 20 64 65 66 61 | 75 6c 74 0a 6e 69 6c 2e |ue, defa|ult.nil.|
|00005a80| 22 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |"])).(de|falias '|
|00005a90| 64 6f 2d 73 79 6d 62 6f | 6c 73 20 27 28 6d 61 63 |do-symbo|ls '(mac|
|00005aa0| 72 6f 20 2e 20 23 5b 28 | 73 70 65 63 20 26 72 65 |ro . #[(|spec &re|
|00005ab0| 73 74 20 62 6f 64 79 29 | 20 22 c0 c1 c2 0b 40 43 |st body)| "....@C|
|00005ac0| c4 c5 c6 c4 c7 0b 40 43 | 0e 08 23 44 c9 0b 21 85 |......@C|..#D..!.|
|00005ad0| 1c 00 c9 0b 21 43 23 ca | 0b 21 46 45 87 22 20 5b |....!C#.|.!FE." [|
|00005ae0| 62 6c 6f 63 6b 20 6e 69 | 6c 20 6c 65 74 20 73 70 |block ni|l let sp|
|00005af0| 65 63 20 6c 69 73 74 2a | 20 6d 61 70 61 74 6f 6d |ec list*| mapatom|
|00005b00| 73 20 66 75 6e 63 74 69 | 6f 6e 20 6c 61 6d 62 64 |s functi|on lambd|
|00005b10| 61 20 62 6f 64 79 20 63 | 61 64 72 20 63 61 64 64 |a body c|adr cadd|
|00005b20| 72 5d 20 31 31 20 22 5c | 0a 28 64 6f 73 79 6d 62 |r] 11 "\|.(dosymb|
|00005b30| 6f 6c 73 20 28 56 41 52 | 20 5b 4f 42 41 52 52 41 |ols (VAR| [OBARRA|
|00005b40| 59 20 5b 52 45 53 55 4c | 54 5d 5d 29 20 42 4f 44 |Y [RESUL|T]]) BOD|
|00005b50| 59 2e 2e 2e 29 3a 20 6c | 6f 6f 70 20 6f 76 65 72 |Y...): l|oop over|
|00005b60| 20 61 6c 6c 20 73 79 6d | 62 6f 6c 73 2e 0a 45 76 | all sym|bols..Ev|
|00005b70| 61 6c 75 61 74 65 20 42 | 4f 44 59 20 77 69 74 68 |aluate B|ODY with|
|00005b80| 20 56 41 52 20 62 6f 75 | 6e 64 20 74 6f 20 65 61 | VAR bou|nd to ea|
|00005b90| 63 68 20 69 6e 74 65 72 | 6e 65 64 20 73 79 6d 62 |ch inter|ned symb|
|00005ba0| 6f 6c 2c 20 6f 72 20 74 | 6f 20 65 61 63 68 20 73 |ol, or t|o each s|
|00005bb0| 79 6d 62 6f 6c 0a 66 72 | 6f 6d 20 4f 42 41 52 52 |ymbol.fr|om OBARR|
|00005bc0| 41 59 2e 22 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |AY."])).|(defalia|
|00005bd0| 73 20 28 71 75 6f 74 65 | 20 64 6f 2d 61 6c 6c 2d |s (quote| do-all-|
|00005be0| 73 79 6d 62 6f 6c 73 29 | 20 28 71 75 6f 74 65 20 |symbols)| (quote |
|00005bf0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 73 70 65 63 |(macro .| #[(spec|
|00005c00| 20 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 c1 | &rest b|ody) "..|
|00005c10| 5c 6e 40 c3 c4 5c 6e 21 | 45 0d 23 87 22 20 5b 6c |\n@..\n!|E.#." [l|
|00005c20| 69 73 74 2a 20 64 6f 2d | 73 79 6d 62 6f 6c 73 20 |ist* do-|symbols |
|00005c30| 73 70 65 63 20 6e 69 6c | 20 63 61 64 72 20 62 6f |spec nil| cadr bo|
|00005c40| 64 79 5d 20 36 5d 29 29 | 29 0a 28 64 65 66 61 6c |dy] 6]))|).(defal|
|00005c50| 69 61 73 20 27 70 73 65 | 74 71 20 27 28 6d 61 63 |ias 'pse|tq '(mac|
|00005c60| 72 6f 20 2e 20 23 5b 28 | 26 72 65 73 74 20 61 72 |ro . #[(|&rest ar|
|00005c70| 67 73 29 20 22 c0 09 42 | 87 22 20 5b 70 73 65 74 |gs) "..B|." [pset|
|00005c80| 66 20 61 72 67 73 5d 20 | 32 20 22 5c 0a 28 70 73 |f args] |2 "\.(ps|
|00005c90| 65 74 71 20 53 59 4d 20 | 56 41 4c 20 53 59 4d 20 |etq SYM |VAL SYM |
|00005ca0| 56 41 4c 20 2e 2e 2e 29 | 3a 20 73 65 74 20 53 59 |VAL ...)|: set SY|
|00005cb0| 4d 73 20 74 6f 20 74 68 | 65 20 76 61 6c 75 65 73 |Ms to th|e values|
|00005cc0| 20 56 41 4c 73 20 69 6e | 20 70 61 72 61 6c 6c 65 | VALs in| paralle|
|00005cd0| 6c 2e 0a 54 68 69 73 20 | 69 73 20 6c 69 6b 65 20 |l..This |is like |
|00005ce0| 60 73 65 74 71 27 2c 20 | 65 78 63 65 70 74 20 74 |`setq', |except t|
|00005cf0| 68 61 74 20 61 6c 6c 20 | 56 41 4c 20 66 6f 72 6d |hat all |VAL form|
|00005d00| 73 20 61 72 65 20 65 76 | 61 6c 75 61 74 65 64 20 |s are ev|aluated |
|00005d10| 28 69 6e 20 6f 72 64 65 | 72 29 0a 62 65 66 6f 72 |(in orde|r).befor|
|00005d20| 65 20 61 73 73 69 67 6e | 69 6e 67 20 61 6e 79 20 |e assign|ing any |
|00005d30| 73 79 6d 62 6f 6c 73 20 | 53 59 4d 20 74 6f 20 74 |symbols |SYM to t|
|00005d40| 68 65 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |he corre|sponding|
|00005d50| 20 76 61 6c 75 65 73 2e | 22 5d 29 29 0a 28 64 65 | values.|"])).(de|
|00005d60| 66 61 6c 69 61 73 20 27 | 70 72 6f 67 76 20 27 28 |falias '|progv '(|
|00005d70| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 73 79 6d 62 6f |macro . |#[(symbo|
|00005d80| 6c 73 20 76 61 6c 75 65 | 73 20 26 72 65 73 74 20 |ls value|s &rest |
|00005d90| 62 6f 64 79 29 20 22 c0 | c1 c2 c3 c4 c5 0e 06 0e |body) ".|........|
|00005da0| 07 45 0e 08 23 c9 45 45 | 87 22 20 5b 6c 65 74 20 |.E..#.EE|." [let |
|00005db0| 28 28 63 6c 2d 70 72 6f | 67 76 2d 73 61 76 65 20 |((cl-pro|gv-save |
|00005dc0| 6e 69 6c 29 29 20 75 6e | 77 69 6e 64 2d 70 72 6f |nil)) un|wind-pro|
|00005dd0| 74 65 63 74 20 6c 69 73 | 74 2a 20 70 72 6f 67 6e |tect lis|t* progn|
|00005de0| 20 63 6c 2d 70 72 6f 67 | 76 2d 62 65 66 6f 72 65 | cl-prog|v-before|
|00005df0| 20 73 79 6d 62 6f 6c 73 | 20 76 61 6c 75 65 73 20 | symbols| values |
|00005e00| 62 6f 64 79 20 28 63 6c | 2d 70 72 6f 67 76 2d 61 |body (cl|-progv-a|
|00005e10| 66 74 65 72 29 5d 20 38 | 20 22 5c 0a 28 70 72 6f |fter)] 8| "\.(pro|
|00005e20| 67 76 20 53 59 4d 42 4f | 4c 53 20 56 41 4c 55 45 |gv SYMBO|LS VALUE|
|00005e30| 53 20 42 4f 44 59 2e 2e | 2e 29 3a 20 62 69 6e 64 |S BODY..|.): bind|
|00005e40| 20 53 59 4d 42 4f 4c 53 | 20 74 6f 20 56 41 4c 55 | SYMBOLS| to VALU|
|00005e50| 45 53 20 64 79 6e 61 6d | 69 63 61 6c 6c 79 20 69 |ES dynam|ically i|
|00005e60| 6e 20 42 4f 44 59 2e 0a | 54 68 65 20 66 6f 72 6d |n BODY..|The form|
|00005e70| 73 20 53 59 4d 42 4f 4c | 53 20 61 6e 64 20 56 41 |s SYMBOL|S and VA|
|00005e80| 4c 55 45 53 20 61 72 65 | 20 65 76 61 6c 75 61 74 |LUES are| evaluat|
|00005e90| 65 64 2c 20 61 6e 64 20 | 6d 75 73 74 20 65 76 61 |ed, and |must eva|
|00005ea0| 6c 75 61 74 65 20 74 6f | 20 6c 69 73 74 73 2e 0a |luate to| lists..|
|00005eb0| 45 61 63 68 20 53 59 4d | 42 4f 4c 20 69 6e 20 74 |Each SYM|BOL in t|
|00005ec0| 68 65 20 66 69 72 73 74 | 20 6c 69 73 74 20 69 73 |he first| list is|
|00005ed0| 20 62 6f 75 6e 64 20 74 | 6f 20 74 68 65 20 63 6f | bound t|o the co|
|00005ee0| 72 72 65 73 70 6f 6e 64 | 69 6e 67 20 56 41 4c 55 |rrespond|ing VALU|
|00005ef0| 45 20 69 6e 20 74 68 65 | 0a 73 65 63 6f 6e 64 20 |E in the|.second |
|00005f00| 6c 69 73 74 20 28 6f 72 | 20 6d 61 64 65 20 75 6e |list (or| made un|
|00005f10| 62 6f 75 6e 64 20 69 66 | 20 56 41 4c 55 45 53 20 |bound if| VALUES |
|00005f20| 69 73 20 73 68 6f 72 74 | 65 72 20 74 68 61 6e 20 |is short|er than |
|00005f30| 53 59 4d 42 4f 4c 53 29 | 3b 20 74 68 65 6e 20 74 |SYMBOLS)|; then t|
|00005f40| 68 65 0a 42 4f 44 59 20 | 66 6f 72 6d 73 20 61 72 |he.BODY |forms ar|
|00005f50| 65 20 65 78 65 63 75 74 | 65 64 20 61 6e 64 20 74 |e execut|ed and t|
|00005f60| 68 65 69 72 20 72 65 73 | 75 6c 74 20 69 73 20 72 |heir res|ult is r|
|00005f70| 65 74 75 72 6e 65 64 2e | 20 20 54 68 69 73 20 69 |eturned.|  This i|
|00005f80| 73 20 6d 75 63 68 20 6c | 69 6b 65 0a 61 20 60 6c |s much l|ike.a `l|
|00005f90| 65 74 27 20 66 6f 72 6d | 2c 20 65 78 63 65 70 74 |et' form|, except|
|00005fa0| 20 74 68 61 74 20 74 68 | 65 20 6c 69 73 74 20 6f | that th|e list o|
|00005fb0| 66 20 73 79 6d 62 6f 6c | 73 20 63 61 6e 20 62 65 |f symbol|s can be|
|00005fc0| 20 63 6f 6d 70 75 74 65 | 64 20 61 74 20 72 75 6e | compute|d at run|
|00005fd0| 2d 74 69 6d 65 2e 22 5d | 29 29 0a 28 64 65 66 61 |-time."]|)).(defa|
|00005fe0| 6c 69 61 73 20 27 66 6c | 65 74 20 27 28 6d 61 63 |lias 'fl|et '(mac|
|00005ff0| 72 6f 20 2e 20 23 5b 28 | 62 69 6e 64 69 6e 67 73 |ro . #[(|bindings|
|00006000| 20 26 72 65 73 74 20 62 | 6f 64 79 29 20 22 c0 c1 | &rest b|ody) "..|
|00006010| c2 c3 5c 66 5c 22 0d 23 | 87 22 20 5b 6c 69 73 74 |..\f\".#|." [list|
|00006020| 2a 20 6c 65 74 66 2a 20 | 6d 61 70 63 61 72 20 23 |* letf* |mapcar #|
|00006030| 5b 28 78 29 20 22 c0 c1 | c2 0b 21 c4 c5 0b 40 c6 |[(x) "..|..!...@.|
|00006040| 0b 21 23 45 44 1e 07 c8 | 20 83 28 00 c9 ca 21 83 |.!#ED...| .(...!.|
|00006050| 28 00 0b 40 cb 0e 07 21 | 42 0e 5c 6e 42 16 5c 6e |(..@...!|B.\nB.\n|
|00006060| cc cd 0b 40 44 44 0e 07 | 29 44 87 22 20 5b 66 75 |...@DD..|)D." [fu|
|00006070| 6e 63 74 69 6f 6e 2a 20 | 6c 61 6d 62 64 61 20 63 |nction* |lambda c|
|00006080| 61 64 72 20 78 20 6c 69 | 73 74 2a 20 62 6c 6f 63 |adr x li|st* bloc|
|00006090| 6b 20 63 64 64 72 20 66 | 75 6e 63 20 63 6c 2d 63 |k cddr f|unc cl-c|
|000060a0| 6f 6d 70 69 6c 69 6e 67 | 2d 66 69 6c 65 20 62 6f |ompiling|-file bo|
|000060b0| 75 6e 64 70 20 62 79 74 | 65 2d 63 6f 6d 70 69 6c |undp byt|e-compil|
|000060c0| 65 2d 66 75 6e 63 74 69 | 6f 6e 2d 65 6e 76 69 72 |e-functi|on-envir|
|000060d0| 6f 6e 6d 65 6e 74 20 65 | 76 61 6c 20 73 79 6d 62 |onment e|val symb|
|000060e0| 6f 6c 2d 66 75 6e 63 74 | 69 6f 6e 20 71 75 6f 74 |ol-funct|ion quot|
|000060f0| 65 5d 20 38 5d 20 62 69 | 6e 64 69 6e 67 73 20 62 |e] 8] bi|ndings b|
|00006100| 6f 64 79 5d 20 35 20 22 | 5c 0a 28 66 6c 65 74 20 |ody] 5 "|\.(flet |
|00006110| 28 28 46 55 4e 43 20 41 | 52 47 4c 49 53 54 20 42 |((FUNC A|RGLIST B|
|00006120| 4f 44 59 2e 2e 2e 29 20 | 2e 2e 2e 29 20 46 4f 52 |ODY...) |...) FOR|
|00006130| 4d 2e 2e 2e 29 3a 20 6d | 61 6b 65 20 74 65 6d 70 |M...): m|ake temp|
|00006140| 6f 72 61 72 79 20 66 75 | 6e 63 74 69 6f 6e 20 64 |orary fu|nction d|
|00006150| 65 66 6e 73 2e 0a 54 68 | 69 73 20 69 73 20 61 6e |efns..Th|is is an|
|00006160| 20 61 6e 61 6c 6f 67 75 | 65 20 6f 66 20 60 6c 65 | analogu|e of `le|
|00006170| 74 27 20 74 68 61 74 20 | 6f 70 65 72 61 74 65 73 |t' that |operates|
|00006180| 20 6f 6e 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | on the |function|
|00006190| 20 63 65 6c 6c 20 6f 66 | 20 46 55 4e 43 0a 72 61 | cell of| FUNC.ra|
|000061a0| 74 68 65 72 20 74 68 61 | 6e 20 69 74 73 20 76 61 |ther tha|n its va|
|000061b0| 6c 75 65 20 63 65 6c 6c | 2e 20 20 54 68 65 20 46 |lue cell|.  The F|
|000061c0| 4f 52 4d 73 20 61 72 65 | 20 65 76 61 6c 75 61 74 |ORMs are| evaluat|
|000061d0| 65 64 20 77 69 74 68 20 | 74 68 65 20 73 70 65 63 |ed with |the spec|
|000061e0| 69 66 69 65 64 0a 66 75 | 6e 63 74 69 6f 6e 20 64 |ified.fu|nction d|
|000061f0| 65 66 69 6e 69 74 69 6f | 6e 73 20 69 6e 20 70 6c |efinitio|ns in pl|
|00006200| 61 63 65 2c 20 74 68 65 | 6e 20 74 68 65 20 64 65 |ace, the|n the de|
|00006210| 66 69 6e 69 74 69 6f 6e | 73 20 61 72 65 20 75 6e |finition|s are un|
|00006220| 64 6f 6e 65 20 28 74 68 | 65 20 46 55 4e 43 73 0a |done (th|e FUNCs.|
|00006230| 67 6f 20 62 61 63 6b 20 | 74 6f 20 74 68 65 69 72 |go back |to their|
|00006240| 20 70 72 65 76 69 6f 75 | 73 20 64 65 66 69 6e 69 | previou|s defini|
|00006250| 74 69 6f 6e 73 2c 20 6f | 72 20 6c 61 63 6b 20 74 |tions, o|r lack t|
|00006260| 68 65 72 65 6f 66 29 2e | 22 5d 29 29 0a 28 64 65 |hereof).|"])).(de|
|00006270| 66 61 6c 69 61 73 20 28 | 71 75 6f 74 65 20 6c 61 |falias (|quote la|
|00006280| 62 65 6c 73 29 20 28 71 | 75 6f 74 65 20 28 6d 61 |bels) (q|uote (ma|
|00006290| 63 72 6f 20 2e 20 23 5b | 28 26 72 65 73 74 20 61 |cro . #[|(&rest a|
|000062a0| 72 67 73 29 20 22 c0 09 | 42 87 22 20 5b 66 6c 65 |rgs) "..|B." [fle|
|000062b0| 74 20 61 72 67 73 5d 20 | 32 5d 29 29 29 0a 28 64 |t args] |2]))).(d|
|000062c0| 65 66 61 6c 69 61 73 20 | 27 6d 61 63 72 6f 6c 65 |efalias |'macrole|
|000062d0| 74 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 62 |t '(macr|o . #[(b|
|000062e0| 69 6e 64 69 6e 67 73 20 | 26 72 65 73 74 20 62 6f |indings |&rest bo|
|000062f0| 64 79 29 20 22 08 41 83 | 11 00 c1 08 40 43 c2 c1 |dy) ".A.|....@C..|
|00006300| 08 41 0b 23 45 87 08 84 | 19 00 c4 0b 42 87 c5 08 |.A.#E...|....B...|
|00006310| 21 1e 06 c7 c8 08 21 0e | 06 5c 22 1e 09 ca 0e 09 |!.....!.|.\".....|
|00006320| 40 21 88 cb c4 0b 42 c2 | 0e 06 cc 0e 09 41 23 0e |@!....B.|.....A#.|
|00006330| 0d 42 5c 22 2a 87 22 20 | 5b 62 69 6e 64 69 6e 67 |.B\"*." |[binding|
|00006340| 73 20 6d 61 63 72 6f 6c | 65 74 20 6c 69 73 74 2a |s macrol|et list*|
|00006350| 20 62 6f 64 79 20 70 72 | 6f 67 6e 20 63 61 61 72 | body pr|ogn caar|
|00006360| 20 6e 61 6d 65 20 63 6c | 2d 74 72 61 6e 73 66 6f | name cl|-transfo|
|00006370| 72 6d 2d 6c 61 6d 62 64 | 61 20 63 64 61 72 20 72 |rm-lambd|a cdar r|
|00006380| 65 73 20 65 76 61 6c 20 | 63 6c 2d 6d 61 63 72 6f |es eval |cl-macro|
|00006390| 65 78 70 61 6e 64 2d 61 | 6c 6c 20 6c 61 6d 62 64 |expand-a|ll lambd|
|000063a0| 61 20 63 6c 2d 6d 61 63 | 72 6f 2d 65 6e 76 69 72 |a cl-mac|ro-envir|
|000063b0| 6f 6e 6d 65 6e 74 5d 20 | 36 20 22 5c 0a 28 6d 61 |onment] |6 "\.(ma|
|000063c0| 63 72 6f 6c 65 74 20 28 | 28 4e 41 4d 45 20 41 52 |crolet (|(NAME AR|
|000063d0| 47 4c 49 53 54 20 42 4f | 44 59 2e 2e 2e 29 20 2e |GLIST BO|DY...) .|
|000063e0| 2e 2e 29 20 46 4f 52 4d | 2e 2e 2e 29 3a 20 6d 61 |..) FORM|...): ma|
|000063f0| 6b 65 20 74 65 6d 70 6f | 72 61 72 79 20 6d 61 63 |ke tempo|rary mac|
+--------+-------------------------+-------------------------+--------+--------+